object dmMain: TdmMain
  OldCreateOrder = False
  Height = 875
  Width = 957
  object dsetPat: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterInsert = dsetPatAfterInsert
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from PAT_INFO'
      'where'
      '  PAT_ID = :OLD_PAT_ID')
    InsertSQL.Strings = (
      'insert into PAT_INFO'
      
        '  (ABORTION, AD_LEFT_DIAST, AD_LEFT_SYST, AD_RIGHT_DIAST, AD_RIG' +
        'HT_SYST, '
      
        '   ALL_REAK, ANAMNEZ_SOSTOYANIE, ANAMNEZ_TECHENIE, ATTENDANCE, B' +
        'EREM, BIRTH, '
      
        '   BIRTH_DATE, CHISLO_UD_HEARTBEAT, COD_PODRAZ, CONSUL_NAME, DAT' +
        'E_OF_GAIN, '
      
        '   DOCUMENT_ID, FIRST_CHEV_PLODA, FORM_PLODA, GB_ID, GB_OTEC_ID,' +
        ' GDE_NAKH, '
      
        '   GONOR, GYNECOLOG_DISEASES, HB, HOW_MANY_TIMES, ID_MESTO_HEART' +
        'BEAT, IP_NUMBER, '
      
        '   IP_SERIES, LAST_MENSTRUATION, MENSTRUATION, MERTVOROZH, MOCHE' +
        'VAYA_SIST_OSMOTR, '
      
        '   NAC_ID, NUMBER, OBSHIE_ZABOLEV, OKRUZH_ABDOMINAL, OP_ROD_AD_D' +
        'IAST, OP_ROD_AD_SYST, '
      
        '   OP_ROD_EP, OP_ROD_KROV, OP_ROD_MOCHA, OP_ROD_OBEZB, OP_ROD_OB' +
        'EZB_OP, '
      
        '   OP_ROD_OPERATION_OPISANIE, OP_ROD_PAKAZ, OP_ROD_PLACENTA_OPIS' +
        'ANIE, OP_ROD_POSLED_OSMOTR, '
      
        '   OP_ROD_POSLED_TIME, OP_ROD_POSLED_VYDELILSYA, OP_ROD_PROF, OP' +
        '_ROD_PROVEDENO, '
      
        '   OP_ROD_REVIZIYA, OP_ROD_TRAVM, OPER_POS, ORGANY_DYHANIYA, PAL' +
        '_ID, PAT_BD, '
      
        '   PAT_F, PAT_HEIGHT, PAT_I, PAT_ID, PAT_KROVAT, PAT_O, PAT_OTD,' +
        ' PAT_PHONE, '
      
        '   PAT_WEIGHT, PAT_WORK, PEREVOD_EP_AD_DIAST, PEREVOD_EP_AD_SYST' +
        ', PEREVOD_EP_DATE, '
      
        '   PEREVOD_EP_KROV, PEREVOD_EP_MATKA, PEREVOD_EP_NAZN, PEREVOD_E' +
        'P_SOST, '
      
        '   PEREVOD_EP_TIME, PEREVOD_EP_ZHALOBY, PH_OTEC_ID, PISHEVARENIE' +
        '_OSMOTR, '
      
        '   PLACE_OF_BD, PLACE_OF_GAIN, POL_PLODA, POLIS, POLNOE_OTKRYTIE' +
        '_DATE, '
      
        '   POLNOE_OTKRYTIE_TIME, POST_D, POTUGI_DATE, POTUGI_TIME, PRED_' +
        'CHAST, '
      
        '   PRED_VES_PLODA, PREVIOUS_BEREMENNOST, PULS_OSMOTR, REGION_COD' +
        ', RH, RW, '
      
        '   SERDCE_OSMOTR, SERIES, SHVATKI_DATA, SHVATKI_TIME, SK_DETEY_Z' +
        'HIV, SP_ID, '
      
        '   SROK_BEREM, STAT_ID, TAZ, TECH_ROD_EF, TECH_ROD_PROD_1, TECH_' +
        'ROD_PROD_2, '
      
        '   TECH_ROD_PROD_3, TECH_ROD_PROD_OBSH, TECH_ROD_PSICH, TEMPERAT' +
        'URE, TWN_CODE, '
      
        '   UCH, UMERLO, VODY_DATE, VODY_KACHESTVO, VODY_KOLICHESTVO, VOD' +
        'Y_TIME, '
      
        '   VYB_D, VYPISKA_LIST_FROM, VYPISKA_LIST_NUM, VYPISKA_LIST_TO, ' +
        'VYPISKA_PEREVEDEN_KOGDA, '
      
        '   VYPISKA_PEREVEDEN_KUDA, VYPISKA_SOST, VYS_DNA_MATKI, ZDOR_MUZ' +
        'H)'
      'values'
      
        '  (:ABORTION, :AD_LEFT_DIAST, :AD_LEFT_SYST, :AD_RIGHT_DIAST, :A' +
        'D_RIGHT_SYST, '
      
        '   :ALL_REAK, :ANAMNEZ_SOSTOYANIE, :ANAMNEZ_TECHENIE, :ATTENDANC' +
        'E, :BEREM, '
      
        '   :BIRTH, :BIRTH_DATE, :CHISLO_UD_HEARTBEAT, :COD_PODRAZ, :CONS' +
        'UL_NAME, '
      
        '   :DATE_OF_GAIN, :DOCUMENT_ID, :FIRST_CHEV_PLODA, :FORM_PLODA, ' +
        ':GB_ID, '
      
        '   :GB_OTEC_ID, :GDE_NAKH, :GONOR, :GYNECOLOG_DISEASES, :HB, :HO' +
        'W_MANY_TIMES, '
      
        '   :ID_MESTO_HEARTBEAT, :IP_NUMBER, :IP_SERIES, :LAST_MENSTRUATI' +
        'ON, :MENSTRUATION, '
      
        '   :MERTVOROZH, :MOCHEVAYA_SIST_OSMOTR, :NAC_ID, :NUMBER, :OBSHI' +
        'E_ZABOLEV, '
      
        '   :OKRUZH_ABDOMINAL, :OP_ROD_AD_DIAST, :OP_ROD_AD_SYST, :OP_ROD' +
        '_EP, :OP_ROD_KROV, '
      
        '   :OP_ROD_MOCHA, :OP_ROD_OBEZB, :OP_ROD_OBEZB_OP, :OP_ROD_OPERA' +
        'TION_OPISANIE, '
      
        '   :OP_ROD_PAKAZ, :OP_ROD_PLACENTA_OPISANIE, :OP_ROD_POSLED_OSMO' +
        'TR, :OP_ROD_POSLED_TIME, '
      
        '   :OP_ROD_POSLED_VYDELILSYA, :OP_ROD_PROF, :OP_ROD_PROVEDENO, :' +
        'OP_ROD_REVIZIYA, '
      
        '   :OP_ROD_TRAVM, :OPER_POS, :ORGANY_DYHANIYA, :PAL_ID, :PAT_BD,' +
        ' :PAT_F, '
      
        '   :PAT_HEIGHT, :PAT_I, :PAT_ID, :PAT_KROVAT, :PAT_O, :PAT_OTD, ' +
        ':PAT_PHONE, '
      
        '   :PAT_WEIGHT, :PAT_WORK, :PEREVOD_EP_AD_DIAST, :PEREVOD_EP_AD_' +
        'SYST, :PEREVOD_EP_DATE, '
      
        '   :PEREVOD_EP_KROV, :PEREVOD_EP_MATKA, :PEREVOD_EP_NAZN, :PEREV' +
        'OD_EP_SOST, '
      
        '   :PEREVOD_EP_TIME, :PEREVOD_EP_ZHALOBY, :PH_OTEC_ID, :PISHEVAR' +
        'ENIE_OSMOTR, '
      
        '   :PLACE_OF_BD, :PLACE_OF_GAIN, :POL_PLODA, :POLIS, :POLNOE_OTK' +
        'RYTIE_DATE, '
      
        '   :POLNOE_OTKRYTIE_TIME, :POST_D, :POTUGI_DATE, :POTUGI_TIME, :' +
        'PRED_CHAST, '
      
        '   :PRED_VES_PLODA, :PREVIOUS_BEREMENNOST, :PULS_OSMOTR, :REGION' +
        '_COD, :RH, '
      
        '   :RW, :SERDCE_OSMOTR, :SERIES, :SHVATKI_DATA, :SHVATKI_TIME, :' +
        'SK_DETEY_ZHIV, '
      
        '   :SP_ID, :SROK_BEREM, :STAT_ID, :TAZ, :TECH_ROD_EF, :TECH_ROD_' +
        'PROD_1, '
      
        '   :TECH_ROD_PROD_2, :TECH_ROD_PROD_3, :TECH_ROD_PROD_OBSH, :TEC' +
        'H_ROD_PSICH, '
      
        '   :TEMPERATURE, :TWN_CODE, :UCH, :UMERLO, :VODY_DATE, :VODY_KAC' +
        'HESTVO, '
      
        '   :VODY_KOLICHESTVO, :VODY_TIME, :VYB_D, :VYPISKA_LIST_FROM, :V' +
        'YPISKA_LIST_NUM, '
      
        '   :VYPISKA_LIST_TO, :VYPISKA_PEREVEDEN_KOGDA, :VYPISKA_PEREVEDE' +
        'N_KUDA, '
      '   :VYPISKA_SOST, :VYS_DNA_MATKI, :ZDOR_MUZH)')
    RefreshSQL.Strings = (
      'Select '
      '  PAT_ID,'
      '  PAT_F,'
      '  PAT_I,'
      '  PAT_O,'
      '  PAT_BD,'
      '  POST_D,'
      '  VYB_D,'
      '  KOY_D,'
      '  PAT_PHONE,'
      '  NAC_ID,'
      '  RW,'
      '  GONOR,'
      '  RH,'
      '  GB_ID,'
      '  HB,'
      '  SP_ID,'
      '  PAT_WORK,'
      '  PAL_ID,'
      '  TWN_CODE,'
      '  DOCUMENT_ID,'
      '  SERIES,'
      '  NUMBER,'
      '  DATE_OF_GAIN,'
      '  PLACE_OF_GAIN,'
      '  GB_OTEC_ID,'
      '  PH_OTEC_ID,'
      '  SHVATKI_DATA,'
      '  SHVATKI_TIME,'
      '  VODY_KACHESTVO,'
      '  VODY_KOLICHESTVO,'
      '  VODY_DATE,'
      '  VODY_TIME,'
      '  POLNOE_OTKRYTIE_DATE,'
      '  POLNOE_OTKRYTIE_TIME,'
      '  POTUGI_DATE,'
      '  POTUGI_TIME,'
      '  SERDCE_OSMOTR,'
      '  PULS_OSMOTR,'
      '  AD_RIGHT_SYST,'
      '  AD_LEFT_SYST,'
      '  ORGANY_DYHANIYA,'
      '  PISHEVARENIE_OSMOTR,'
      '  MOCHEVAYA_SIST_OSMOTR,'
      '  ZDOR_MUZH,'
      '  OBSHIE_ZABOLEV,'
      '  MENSTRUATION,'
      '  GYNECOLOG_DISEASES,'
      '  FIRST_CHEV_PLODA,'
      '  TAZ,'
      '  OKRUZH_ABDOMINAL,'
      '  VYS_DNA_MATKI,'
      '  POL_PLODA,'
      '  FORM_PLODA,'
      '  CHISLO_UD_HEARTBEAT,'
      '  GDE_NAKH,'
      '  PRED_VES_PLODA,'
      '  PAT_HEIGHT,'
      '  PAT_WEIGHT,'
      '  PRED_CHAST,'
      '  BEREM,'
      '  BIRTH,'
      '  BIRTH_DATE,'
      '  ABORTION,'
      '  OPER_POS,'
      '  SK_DETEY_ZHIV,'
      '  MERTVOROZH,'
      '  UMERLO,'
      '  PLACE_OF_BD,'
      '  ALL_REAK,'
      '  UCH,'
      '  ATTENDANCE,'
      '  HOW_MANY_TIMES,'
      '  CONSUL_NAME,'
      '  PREVIOUS_BEREMENNOST,'
      '  TEMPERATURE,'
      '  PEREVOD_EP_DATE,'
      '  PEREVOD_EP_TIME,'
      '  PEREVOD_EP_ZHALOBY,'
      '  PEREVOD_EP_MATKA,'
      '  PEREVOD_EP_AD_SYST,'
      '  PEREVOD_EP_AD_DIAST,'
      '  PEREVOD_EP_KROV,'
      '  PEREVOD_EP_NAZN,'
      '  PREDPOLAG_VES_PLODA,'
      '  PAT_OTD,'
      '  OP_ROD_PAKAZ,'
      '  OP_ROD_PROF,'
      '  OP_ROD_EP,'
      '  POLIS,'
      '  TECH_ROD_PSICH,'
      '  TECH_ROD_EF,'
      '  TECH_ROD_PROD_OBSH,'
      '  TECH_ROD_PROD_1,'
      '  TECH_ROD_PROD_3,'
      '  TECH_ROD_PROD_2,'
      '  OP_ROD_OBEZB,'
      '  OP_ROD_POSLED_VYDELILSYA,'
      '  OP_ROD_REVIZIYA,'
      '  OP_ROD_OBEZB_OP,'
      '  OP_ROD_OPERATION_OPISANIE,'
      '  OP_ROD_POSLED_OSMOTR,'
      '  OP_ROD_PLACENTA_OPISANIE,'
      '  OP_ROD_TRAVM,'
      '  OP_ROD_PROVEDENO,'
      '  OP_ROD_AD_SYST,'
      '  OP_ROD_AD_DIAST,'
      '  OP_ROD_KROV,'
      '  VYPISKA_SOST,'
      '  IP_SERIES,'
      '  IP_NUMBER,'
      '  VYPISKA_LIST_NUM,'
      '  VYPISKA_LIST_FROM,'
      '  VYPISKA_LIST_TO,'
      '  VYPISKA_PEREVEDEN_KUDA,'
      '  VYPISKA_PEREVEDEN_KOGDA,'
      '  OP_ROD_MOCHA,'
      '  ANAMNEZ_TECHENIE,'
      '  ANAMNEZ_SOSTOYANIE,'
      '  AD_RIGHT_DIAST,'
      '  AD_LEFT_DIAST,'
      '  LAST_MENSTRUATION,'
      '  COD_PODRAZ,'
      '  ID_MESTO_HEARTBEAT,'
      '  PAT_KROVAT,'
      '  PEREVOD_EP_SOST,'
      '  STAT_ID,'
      '  OP_ROD_POSLED_TIME,'
      '  SROK_BEREM,'
      '  REGION_COD,'
      '  BEREMENNOST,'
      '  SOST_PRI_POSTUP,'
      '  TECH_ROD_PSYH_2'
      'from PAT_INFO '
      'where'
      '  PAT_ID = :PAT_ID')
    SelectSQL.Strings = (
      'select * from PAT_INFO'
      'where upper (Pat_f) starting with upper(:f) '
      'and upper( Pat_i) starting with  upper(:i) '
      'and  upper(Pat_o) starting with  upper(:o)')
    ModifySQL.Strings = (
      'update PAT_INFO'
      'set'
      '  ABORTION = :ABORTION,'
      '  AD_LEFT_DIAST = :AD_LEFT_DIAST,'
      '  AD_LEFT_SYST = :AD_LEFT_SYST,'
      '  AD_RIGHT_DIAST = :AD_RIGHT_DIAST,'
      '  AD_RIGHT_SYST = :AD_RIGHT_SYST,'
      '  ALL_REAK = :ALL_REAK,'
      '  ANAMNEZ_SOSTOYANIE = :ANAMNEZ_SOSTOYANIE,'
      '  ANAMNEZ_TECHENIE = :ANAMNEZ_TECHENIE,'
      '  ATTENDANCE = :ATTENDANCE,'
      '  BEREM = :BEREM,'
      '  BIRTH = :BIRTH,'
      '  BIRTH_DATE = :BIRTH_DATE,'
      '  CHISLO_UD_HEARTBEAT = :CHISLO_UD_HEARTBEAT,'
      '  COD_PODRAZ = :COD_PODRAZ,'
      '  CONSUL_NAME = :CONSUL_NAME,'
      '  DATE_OF_GAIN = :DATE_OF_GAIN,'
      '  DOCUMENT_ID = :DOCUMENT_ID,'
      '  FIRST_CHEV_PLODA = :FIRST_CHEV_PLODA,'
      '  FORM_PLODA = :FORM_PLODA,'
      '  GB_ID = :GB_ID,'
      '  GB_OTEC_ID = :GB_OTEC_ID,'
      '  GDE_NAKH = :GDE_NAKH,'
      '  GONOR = :GONOR,'
      '  GYNECOLOG_DISEASES = :GYNECOLOG_DISEASES,'
      '  HB = :HB,'
      '  HOW_MANY_TIMES = :HOW_MANY_TIMES,'
      '  ID_MESTO_HEARTBEAT = :ID_MESTO_HEARTBEAT,'
      '  IP_NUMBER = :IP_NUMBER,'
      '  IP_SERIES = :IP_SERIES,'
      '  LAST_MENSTRUATION = :LAST_MENSTRUATION,'
      '  MENSTRUATION = :MENSTRUATION,'
      '  MERTVOROZH = :MERTVOROZH,'
      '  MOCHEVAYA_SIST_OSMOTR = :MOCHEVAYA_SIST_OSMOTR,'
      '  NAC_ID = :NAC_ID,'
      '  NUMBER = :NUMBER,'
      '  OBSHIE_ZABOLEV = :OBSHIE_ZABOLEV,'
      '  OKRUZH_ABDOMINAL = :OKRUZH_ABDOMINAL,'
      '  OP_ROD_AD_DIAST = :OP_ROD_AD_DIAST,'
      '  OP_ROD_AD_SYST = :OP_ROD_AD_SYST,'
      '  OP_ROD_EP = :OP_ROD_EP,'
      '  OP_ROD_KROV = :OP_ROD_KROV,'
      '  OP_ROD_MOCHA = :OP_ROD_MOCHA,'
      '  OP_ROD_OBEZB = :OP_ROD_OBEZB,'
      '  OP_ROD_OBEZB_OP = :OP_ROD_OBEZB_OP,'
      '  OP_ROD_OPERATION_OPISANIE = :OP_ROD_OPERATION_OPISANIE,'
      '  OP_ROD_PAKAZ = :OP_ROD_PAKAZ,'
      '  OP_ROD_PLACENTA_OPISANIE = :OP_ROD_PLACENTA_OPISANIE,'
      '  OP_ROD_POSLED_OSMOTR = :OP_ROD_POSLED_OSMOTR,'
      '  OP_ROD_POSLED_TIME = :OP_ROD_POSLED_TIME,'
      '  OP_ROD_POSLED_VYDELILSYA = :OP_ROD_POSLED_VYDELILSYA,'
      '  OP_ROD_PROF = :OP_ROD_PROF,'
      '  OP_ROD_PROVEDENO = :OP_ROD_PROVEDENO,'
      '  OP_ROD_REVIZIYA = :OP_ROD_REVIZIYA,'
      '  OP_ROD_TRAVM = :OP_ROD_TRAVM,'
      '  OPER_POS = :OPER_POS,'
      '  ORGANY_DYHANIYA = :ORGANY_DYHANIYA,'
      '  PAL_ID = :PAL_ID,'
      '  PAT_BD = :PAT_BD,'
      '  PAT_F = :PAT_F,'
      '  PAT_HEIGHT = :PAT_HEIGHT,'
      '  PAT_I = :PAT_I,'
      '  PAT_ID = :PAT_ID,'
      '  PAT_KROVAT = :PAT_KROVAT,'
      '  PAT_O = :PAT_O,'
      '  PAT_OTD = :PAT_OTD,'
      '  PAT_PHONE = :PAT_PHONE,'
      '  PAT_WEIGHT = :PAT_WEIGHT,'
      '  PAT_WORK = :PAT_WORK,'
      '  PEREVOD_EP_AD_DIAST = :PEREVOD_EP_AD_DIAST,'
      '  PEREVOD_EP_AD_SYST = :PEREVOD_EP_AD_SYST,'
      '  PEREVOD_EP_DATE = :PEREVOD_EP_DATE,'
      '  PEREVOD_EP_KROV = :PEREVOD_EP_KROV,'
      '  PEREVOD_EP_MATKA = :PEREVOD_EP_MATKA,'
      '  PEREVOD_EP_NAZN = :PEREVOD_EP_NAZN,'
      '  PEREVOD_EP_SOST = :PEREVOD_EP_SOST,'
      '  PEREVOD_EP_TIME = :PEREVOD_EP_TIME,'
      '  PEREVOD_EP_ZHALOBY = :PEREVOD_EP_ZHALOBY,'
      '  PH_OTEC_ID = :PH_OTEC_ID,'
      '  PISHEVARENIE_OSMOTR = :PISHEVARENIE_OSMOTR,'
      '  PLACE_OF_BD = :PLACE_OF_BD,'
      '  PLACE_OF_GAIN = :PLACE_OF_GAIN,'
      '  POL_PLODA = :POL_PLODA,'
      '  POLIS = :POLIS,'
      '  POLNOE_OTKRYTIE_DATE = :POLNOE_OTKRYTIE_DATE,'
      '  POLNOE_OTKRYTIE_TIME = :POLNOE_OTKRYTIE_TIME,'
      '  POST_D = :POST_D,'
      '  POTUGI_DATE = :POTUGI_DATE,'
      '  POTUGI_TIME = :POTUGI_TIME,'
      '  PRED_CHAST = :PRED_CHAST,'
      '  PRED_VES_PLODA = :PRED_VES_PLODA,'
      '  PREVIOUS_BEREMENNOST = :PREVIOUS_BEREMENNOST,'
      '  PULS_OSMOTR = :PULS_OSMOTR,'
      '  REGION_COD = :REGION_COD,'
      '  RH = :RH,'
      '  RW = :RW,'
      '  SERDCE_OSMOTR = :SERDCE_OSMOTR,'
      '  SERIES = :SERIES,'
      '  SHVATKI_DATA = :SHVATKI_DATA,'
      '  SHVATKI_TIME = :SHVATKI_TIME,'
      '  SK_DETEY_ZHIV = :SK_DETEY_ZHIV,'
      '  SP_ID = :SP_ID,'
      '  SROK_BEREM = :SROK_BEREM,'
      '  STAT_ID = :STAT_ID,'
      '  TAZ = :TAZ,'
      '  TECH_ROD_EF = :TECH_ROD_EF,'
      '  TECH_ROD_PROD_1 = :TECH_ROD_PROD_1,'
      '  TECH_ROD_PROD_2 = :TECH_ROD_PROD_2,'
      '  TECH_ROD_PROD_3 = :TECH_ROD_PROD_3,'
      '  TECH_ROD_PROD_OBSH = :TECH_ROD_PROD_OBSH,'
      '  TECH_ROD_PSICH = :TECH_ROD_PSICH,'
      '  TEMPERATURE = :TEMPERATURE,'
      '  TWN_CODE = :TWN_CODE,'
      '  UCH = :UCH,'
      '  UMERLO = :UMERLO,'
      '  VODY_DATE = :VODY_DATE,'
      '  VODY_KACHESTVO = :VODY_KACHESTVO,'
      '  VODY_KOLICHESTVO = :VODY_KOLICHESTVO,'
      '  VODY_TIME = :VODY_TIME,'
      '  VYB_D = :VYB_D,'
      '  VYPISKA_LIST_FROM = :VYPISKA_LIST_FROM,'
      '  VYPISKA_LIST_NUM = :VYPISKA_LIST_NUM,'
      '  VYPISKA_LIST_TO = :VYPISKA_LIST_TO,'
      '  VYPISKA_PEREVEDEN_KOGDA = :VYPISKA_PEREVEDEN_KOGDA,'
      '  VYPISKA_PEREVEDEN_KUDA = :VYPISKA_PEREVEDEN_KUDA,'
      '  VYPISKA_SOST = :VYPISKA_SOST,'
      '  VYS_DNA_MATKI = :VYS_DNA_MATKI,'
      '  ZDOR_MUZH = :ZDOR_MUZH'
      'where'
      '  PAT_ID = :OLD_PAT_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'PAT_ID'
    GeneratorField.Generator = 'GEN_PAT_INFO_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    Left = 72
    Top = 8
    object dsetPatPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"PAT_INFO"."PAT_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetPatPAT_F: TIBStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103
      FieldName = 'PAT_F'
      Origin = '"PAT_INFO"."PAT_F"'
      Size = 35
    end
    object dsetPatPAT_I: TIBStringField
      DisplayLabel = #1048#1084#1103
      FieldName = 'PAT_I'
      Origin = '"PAT_INFO"."PAT_I"'
      Size = 35
    end
    object dsetPatPAT_O: TIBStringField
      DisplayLabel = #1054#1090#1095#1077#1089#1090#1074#1086
      FieldName = 'PAT_O'
      Origin = '"PAT_INFO"."PAT_O"'
      Size = 35
    end
    object dsetPatPAT_BD: TDateField
      FieldName = 'PAT_BD'
      Origin = '"PAT_INFO"."PAT_BD"'
    end
    object dsetPatPOST_D: TDateField
      FieldName = 'POST_D'
      Origin = '"PAT_INFO"."POST_D"'
    end
    object dsetPatVYB_D: TDateField
      FieldName = 'VYB_D'
      Origin = '"PAT_INFO"."VYB_D"'
    end
    object dsetPatKOY_D: TLargeintField
      FieldKind = fkInternalCalc
      FieldName = 'KOY_D'
      Origin = '"PAT_INFO"."KOY_D"'
      ProviderFlags = []
      ReadOnly = True
    end
    object dsetPatPAT_PHONE: TIBStringField
      FieldName = 'PAT_PHONE'
      Origin = '"PAT_INFO"."PAT_PHONE"'
      Size = 35
    end
    object dsetPatNAC_ID: TIntegerField
      FieldName = 'NAC_ID'
      Origin = '"PAT_INFO"."NAC_ID"'
    end
    object dsetPatRW: TIBStringField
      FieldName = 'RW'
      Origin = '"PAT_INFO"."RW"'
      Size = 1
    end
    object dsetPatGONOR: TIBStringField
      FieldName = 'GONOR'
      Origin = '"PAT_INFO"."GONOR"'
      Size = 1
    end
    object dsetPatRH: TIBStringField
      FieldName = 'RH'
      Origin = '"PAT_INFO"."RH"'
      Size = 1
    end
    object dsetPatGB_ID: TIntegerField
      FieldName = 'GB_ID'
      Origin = '"PAT_INFO"."GB_ID"'
    end
    object dsetPatHB: TIntegerField
      FieldName = 'HB'
      Origin = '"PAT_INFO"."HB"'
    end
    object dsetPatSP_ID: TIntegerField
      FieldName = 'SP_ID'
      Origin = '"PAT_INFO"."SP_ID"'
    end
    object dsetPatPAT_WORK: TIBStringField
      FieldName = 'PAT_WORK'
      Origin = '"PAT_INFO"."PAT_WORK"'
      Size = 100
    end
    object dsetPatPAL_ID: TIntegerField
      FieldName = 'PAL_ID'
      Origin = '"PAT_INFO"."PAL_ID"'
    end
    object dsetPatTWN_CODE: TIBStringField
      FieldName = 'TWN_CODE'
      Origin = '"PAT_INFO"."TWN_CODE"'
      Size = 13
    end
    object dsetPatDOCUMENT_ID: TIntegerField
      FieldName = 'DOCUMENT_ID'
      Origin = '"PAT_INFO"."DOCUMENT_ID"'
    end
    object dsetPatSERIES: TIntegerField
      FieldName = 'SERIES'
      Origin = '"PAT_INFO"."SERIES"'
      Required = True
    end
    object dsetPatNUMBER: TIntegerField
      FieldName = 'NUMBER'
      Origin = '"PAT_INFO"."NUMBER"'
      Required = True
    end
    object dsetPatDATE_OF_GAIN: TDateField
      FieldName = 'DATE_OF_GAIN'
      Origin = '"PAT_INFO"."DATE_OF_GAIN"'
      Required = True
    end
    object dsetPatPLACE_OF_GAIN: TIBStringField
      FieldName = 'PLACE_OF_GAIN'
      Origin = '"PAT_INFO"."PLACE_OF_GAIN"'
      Required = True
      Size = 200
    end
    object dsetPatGB_OTEC_ID: TIntegerField
      FieldName = 'GB_OTEC_ID'
      Origin = '"PAT_INFO"."GB_OTEC_ID"'
    end
    object dsetPatPH_OTEC_ID: TIBStringField
      FieldName = 'PH_OTEC_ID'
      Origin = '"PAT_INFO"."PH_OTEC_ID"'
      Size = 1
    end
    object dsetPatGROUP_AB0_otec: TStringField
      DisplayLabel = #1043#1088#1091#1087#1087#1072' '#1082#1088#1086#1074#1080' '#1086#1090#1094#1072
      FieldKind = fkLookup
      FieldName = 'GROUP_AB0_otec'
      LookupDataSet = quGB
      LookupKeyFields = 'GB_ID'
      LookupResultField = 'GROUP_AB0'
      KeyFields = 'GB_OTEC_ID'
      Size = 10
      Lookup = True
    end
    object dsetPatGROUP_AB0: TStringField
      DisplayLabel = #1043#1088#1091#1087#1087#1072' '#1082#1088#1086#1074#1080' '#1084#1072#1090#1077#1088#1080
      FieldKind = fkLookup
      FieldName = 'GROUP_AB0'
      LookupDataSet = quGB
      LookupKeyFields = 'GB_ID'
      LookupResultField = 'GROUP_AB0'
      KeyFields = 'GB_ID'
      Size = 10
      Lookup = True
    end
    object dsetPatSHVATKI_DATA: TDateField
      FieldName = 'SHVATKI_DATA'
      Origin = '"PAT_INFO"."SHVATKI_DATA"'
    end
    object dsetPatSHVATKI_TIME: TTimeField
      FieldName = 'SHVATKI_TIME'
      Origin = '"PAT_INFO"."SHVATKI_TIME"'
    end
    object dsetPatVODY_KACHESTVO: TIBStringField
      FieldName = 'VODY_KACHESTVO'
      Origin = '"PAT_INFO"."VODY_KACHESTVO"'
      Size = 1000
    end
    object dsetPatVODY_KOLICHESTVO: TIntegerField
      FieldName = 'VODY_KOLICHESTVO'
      Origin = '"PAT_INFO"."VODY_KOLICHESTVO"'
    end
    object dsetPatVODY_DATE: TDateField
      FieldName = 'VODY_DATE'
      Origin = '"PAT_INFO"."VODY_DATE"'
    end
    object dsetPatVODY_TIME: TTimeField
      FieldName = 'VODY_TIME'
      Origin = '"PAT_INFO"."VODY_TIME"'
    end
    object dsetPatPOLNOE_OTKRYTIE_DATE: TDateField
      FieldName = 'POLNOE_OTKRYTIE_DATE'
      Origin = '"PAT_INFO"."POLNOE_OTKRYTIE_DATE"'
    end
    object dsetPatPOLNOE_OTKRYTIE_TIME: TTimeField
      FieldName = 'POLNOE_OTKRYTIE_TIME'
      Origin = '"PAT_INFO"."POLNOE_OTKRYTIE_TIME"'
    end
    object dsetPatPOTUGI_DATE: TDateField
      FieldName = 'POTUGI_DATE'
      Origin = '"PAT_INFO"."POTUGI_DATE"'
    end
    object dsetPatPOTUGI_TIME: TTimeField
      FieldName = 'POTUGI_TIME'
      Origin = '"PAT_INFO"."POTUGI_TIME"'
    end
    object dsetPatSERDCE_OSMOTR: TIBStringField
      FieldName = 'SERDCE_OSMOTR'
      Origin = '"PAT_INFO"."SERDCE_OSMOTR"'
      Size = 2000
    end
    object dsetPatPULS_OSMOTR: TIntegerField
      FieldName = 'PULS_OSMOTR'
      Origin = '"PAT_INFO"."PULS_OSMOTR"'
    end
    object dsetPatORGANY_DYHANIYA: TIBStringField
      FieldName = 'ORGANY_DYHANIYA'
      Origin = '"PAT_INFO"."ORGANY_DYHANIYA"'
      Size = 2000
    end
    object dsetPatPISHEVARENIE_OSMOTR: TIBStringField
      FieldName = 'PISHEVARENIE_OSMOTR'
      Origin = '"PAT_INFO"."PISHEVARENIE_OSMOTR"'
      Size = 3000
    end
    object dsetPatMOCHEVAYA_SIST_OSMOTR: TIBStringField
      FieldName = 'MOCHEVAYA_SIST_OSMOTR'
      Origin = '"PAT_INFO"."MOCHEVAYA_SIST_OSMOTR"'
      Size = 2000
    end
    object dsetPatZDOR_MUZH: TIBStringField
      FieldName = 'ZDOR_MUZH'
      Origin = '"PAT_INFO"."ZDOR_MUZH"'
      Size = 100
    end
    object dsetPatOBSHIE_ZABOLEV: TIBStringField
      FieldName = 'OBSHIE_ZABOLEV'
      Origin = '"PAT_INFO"."OBSHIE_ZABOLEV"'
      Size = 100
    end
    object dsetPatMENSTRUATION: TIntegerField
      FieldName = 'MENSTRUATION'
      Origin = '"PAT_INFO"."MENSTRUATION"'
    end
    object dsetPatGYNECOLOG_DISEASES: TIBStringField
      FieldName = 'GYNECOLOG_DISEASES'
      Origin = '"PAT_INFO"."GYNECOLOG_DISEASES"'
      Size = 100
    end
    object dsetPatFIRST_CHEV_PLODA: TDateField
      FieldName = 'FIRST_CHEV_PLODA'
      Origin = '"PAT_INFO"."FIRST_CHEV_PLODA"'
    end
    object dsetPatTAZ: TIntegerField
      FieldName = 'TAZ'
      Origin = '"PAT_INFO"."TAZ"'
    end
    object dsetPatOKRUZH_ABDOMINAL: TIntegerField
      FieldName = 'OKRUZH_ABDOMINAL'
      Origin = '"PAT_INFO"."OKRUZH_ABDOMINAL"'
    end
    object dsetPatVYS_DNA_MATKI: TIntegerField
      FieldName = 'VYS_DNA_MATKI'
      Origin = '"PAT_INFO"."VYS_DNA_MATKI"'
    end
    object dsetPatPOL_PLODA: TIBStringField
      DisplayWidth = 1000
      FieldName = 'POL_PLODA'
      Origin = '"PAT_INFO"."POL_PLODA"'
      Size = 100
    end
    object dsetPatFORM_PLODA: TIBStringField
      FieldName = 'FORM_PLODA'
      Origin = '"PAT_INFO"."FORM_PLODA"'
      Size = 100
    end
    object dsetPatCHISLO_UD_HEARTBEAT: TIntegerField
      FieldName = 'CHISLO_UD_HEARTBEAT'
      Origin = '"PAT_INFO"."CHISLO_UD_HEARTBEAT"'
    end
    object dsetPatGDE_NAKH: TIBStringField
      FieldName = 'GDE_NAKH'
      Origin = '"PAT_INFO"."GDE_NAKH"'
      Size = 10
    end
    object dsetPatPAT_HEIGHT: TIntegerField
      FieldName = 'PAT_HEIGHT'
      Origin = '"PAT_INFO"."PAT_HEIGHT"'
    end
    object dsetPatPAT_WEIGHT: TIntegerField
      FieldName = 'PAT_WEIGHT'
      Origin = '"PAT_INFO"."PAT_WEIGHT"'
    end
    object dsetPatBEREM: TIntegerField
      FieldName = 'BEREM'
      Origin = '"PAT_INFO"."BEREM"'
    end
    object dsetPatBIRTH: TIntegerField
      FieldName = 'BIRTH'
      Origin = '"PAT_INFO"."BIRTH"'
    end
    object dsetPatBIRTH_DATE: TDateField
      FieldName = 'BIRTH_DATE'
      Origin = '"PAT_INFO"."BIRTH_DATE"'
    end
    object dsetPatABORTION: TIntegerField
      FieldName = 'ABORTION'
      Origin = '"PAT_INFO"."ABORTION"'
    end
    object dsetPatOPER_POS: TIBStringField
      FieldName = 'OPER_POS'
      Origin = '"PAT_INFO"."OPER_POS"'
      Size = 10
    end
    object dsetPatSK_DETEY_ZHIV: TIntegerField
      FieldName = 'SK_DETEY_ZHIV'
      Origin = '"PAT_INFO"."SK_DETEY_ZHIV"'
    end
    object dsetPatUMERLO: TIntegerField
      FieldName = 'UMERLO'
      Origin = '"PAT_INFO"."UMERLO"'
    end
    object dsetPatPLACE_OF_BD: TIBStringField
      FieldName = 'PLACE_OF_BD'
      Origin = '"PAT_INFO"."PLACE_OF_BD"'
      Size = 250
    end
    object dsetPatALL_REAK: TIBStringField
      FieldName = 'ALL_REAK'
      Origin = '"PAT_INFO"."ALL_REAK"'
      Size = 100
    end
    object dsetPatPOLIS: TIBStringField
      FieldName = 'POLIS'
      Origin = '"PAT_INFO"."POLIS"'
      Size = 100
    end
    object dsetPatUCH: TIBStringField
      FieldName = 'UCH'
      Origin = '"PAT_INFO"."UCH"'
      Size = 100
    end
    object dsetPatATTENDANCE: TIBStringField
      FieldName = 'ATTENDANCE'
      Origin = '"PAT_INFO"."ATTENDANCE"'
      Size = 100
    end
    object dsetPatHOW_MANY_TIMES: TIntegerField
      FieldName = 'HOW_MANY_TIMES'
      Origin = '"PAT_INFO"."HOW_MANY_TIMES"'
    end
    object dsetPatCONSUL_NAME: TIBStringField
      FieldName = 'CONSUL_NAME'
      Origin = '"PAT_INFO"."CONSUL_NAME"'
      Size = 250
    end
    object dsetPatPREVIOUS_BEREMENNOST: TIBStringField
      FieldName = 'PREVIOUS_BEREMENNOST'
      Origin = '"PAT_INFO"."PREVIOUS_BEREMENNOST"'
      Size = 1500
    end
    object dsetPatPREDPOLAG_VES_PLODA: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'PREDPOLAG_VES_PLODA'
      Origin = '"PAT_INFO"."PREDPOLAG_VES_PLODA"'
      ProviderFlags = []
      ReadOnly = True
    end
    object dsetPatIP_SERIES: TIBStringField
      FieldName = 'IP_SERIES'
      Origin = '"PAT_INFO"."IP_SERIES"'
      Size = 12
    end
    object dsetPatPRED_CHAST: TIBStringField
      FieldName = 'PRED_CHAST'
      Origin = '"PAT_INFO"."PRED_CHAST"'
      Size = 1000
    end
    object dsetPatPEREVOD_EP_DATE: TDateField
      FieldName = 'PEREVOD_EP_DATE'
      Origin = '"PAT_INFO"."PEREVOD_EP_DATE"'
    end
    object dsetPatPEREVOD_EP_TIME: TTimeField
      FieldName = 'PEREVOD_EP_TIME'
      Origin = '"PAT_INFO"."PEREVOD_EP_TIME"'
    end
    object dsetPatPEREVOD_EP_ZHALOBY: TIBStringField
      FieldName = 'PEREVOD_EP_ZHALOBY'
      Origin = '"PAT_INFO"."PEREVOD_EP_ZHALOBY"'
      Size = 1000
    end
    object dsetPatPEREVOD_EP_MATKA: TIBStringField
      FieldName = 'PEREVOD_EP_MATKA'
      Origin = '"PAT_INFO"."PEREVOD_EP_MATKA"'
      Size = 1000
    end
    object dsetPatPEREVOD_EP_AD_SYST: TIntegerField
      FieldName = 'PEREVOD_EP_AD_SYST'
      Origin = '"PAT_INFO"."PEREVOD_EP_AD_SYST"'
    end
    object dsetPatPEREVOD_EP_AD_DIAST: TIntegerField
      FieldName = 'PEREVOD_EP_AD_DIAST'
      Origin = '"PAT_INFO"."PEREVOD_EP_AD_DIAST"'
    end
    object dsetPatPEREVOD_EP_KROV: TIntegerField
      FieldName = 'PEREVOD_EP_KROV'
      Origin = '"PAT_INFO"."PEREVOD_EP_KROV"'
    end
    object dsetPatPEREVOD_EP_NAZN: TIBStringField
      FieldName = 'PEREVOD_EP_NAZN'
      Origin = '"PAT_INFO"."PEREVOD_EP_NAZN"'
      Size = 1000
    end
    object dsetPatDOC_NAME: TStringField
      FieldKind = fkLookup
      FieldName = 'DOC_NAME'
      LookupDataSet = dsetDir_Sotrudniki
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_SOKR'
      KeyFields = 'PAT_ID'
      Size = 105
      Lookup = True
    end
    object dsetPatPAT_OTD: TIBStringField
      FieldName = 'PAT_OTD'
      Origin = '"PAT_INFO"."PAT_OTD"'
      Size = 60
    end
    object dsetPatOP_ROD_PAKAZ: TIBStringField
      FieldName = 'OP_ROD_PAKAZ'
      Origin = '"PAT_INFO"."OP_ROD_PAKAZ"'
      Size = 1000
    end
    object dsetPatOP_ROD_PROF: TIBStringField
      FieldName = 'OP_ROD_PROF'
      Origin = '"PAT_INFO"."OP_ROD_PROF"'
      Size = 1000
    end
    object dsetPatOP_ROD_EP: TIntegerField
      FieldName = 'OP_ROD_EP'
      Origin = '"PAT_INFO"."OP_ROD_EP"'
    end
    object dsetPatTECH_ROD_PSICH: TIntegerField
      FieldName = 'TECH_ROD_PSICH'
      Origin = '"PAT_INFO"."TECH_ROD_PSICH"'
    end
    object dsetPatTECH_ROD_EF: TIntegerField
      FieldName = 'TECH_ROD_EF'
      Origin = '"PAT_INFO"."TECH_ROD_EF"'
    end
    object dsetPatEFFECT: TStringField
      FieldKind = fkLookup
      FieldName = 'EFFECT'
      LookupDataSet = dsetEffect
      LookupKeyFields = 'EF_ID'
      LookupResultField = 'EF_NAME'
      KeyFields = 'TECH_ROD_EF'
      Size = 106
      Lookup = True
    end
    object dsetPatEpisiotomia: TStringField
      FieldKind = fkLookup
      FieldName = 'Episiotomia'
      LookupDataSet = quEpisiotomia
      LookupKeyFields = 'EPIZIO_TYPE_ID'
      LookupResultField = 'EPIZIO_TYPE_NAME'
      KeyFields = 'PAT_ID'
      Lookup = True
    end
    object dsetPatOP_ROD_OBEZB: TIBStringField
      FieldName = 'OP_ROD_OBEZB'
      Origin = '"PAT_INFO"."OP_ROD_OBEZB"'
      Size = 500
    end
    object dsetPatOP_ROD_POSLED_VYDELILSYA: TIBStringField
      FieldName = 'OP_ROD_POSLED_VYDELILSYA'
      Origin = '"PAT_INFO"."OP_ROD_POSLED_VYDELILSYA"'
      Size = 1000
    end
    object dsetPatOP_ROD_REVIZIYA: TIBStringField
      FieldName = 'OP_ROD_REVIZIYA'
      Origin = '"PAT_INFO"."OP_ROD_REVIZIYA"'
      Size = 1000
    end
    object dsetPatOP_ROD_OBEZB_OP: TIBStringField
      FieldName = 'OP_ROD_OBEZB_OP'
      Origin = '"PAT_INFO"."OP_ROD_OBEZB_OP"'
      Size = 500
    end
    object dsetPatOP_ROD_OPERATION_OPISANIE: TIBStringField
      FieldName = 'OP_ROD_OPERATION_OPISANIE'
      Origin = '"PAT_INFO"."OP_ROD_OPERATION_OPISANIE"'
      Size = 2000
    end
    object dsetPatOP_ROD_POSLED_OSMOTR: TIBStringField
      FieldName = 'OP_ROD_POSLED_OSMOTR'
      Origin = '"PAT_INFO"."OP_ROD_POSLED_OSMOTR"'
      Size = 500
    end
    object dsetPatOP_ROD_PLACENTA_OPISANIE: TIBStringField
      FieldName = 'OP_ROD_PLACENTA_OPISANIE'
      Origin = '"PAT_INFO"."OP_ROD_PLACENTA_OPISANIE"'
      Size = 2000
    end
    object dsetPatOP_ROD_TRAVM: TIBStringField
      FieldName = 'OP_ROD_TRAVM'
      Origin = '"PAT_INFO"."OP_ROD_TRAVM"'
      Size = 1000
    end
    object dsetPatOP_ROD_PROVEDENO: TIBStringField
      FieldName = 'OP_ROD_PROVEDENO'
      Origin = '"PAT_INFO"."OP_ROD_PROVEDENO"'
      Size = 1000
    end
    object dsetPatOP_ROD_AD_SYST: TIntegerField
      FieldName = 'OP_ROD_AD_SYST'
      Origin = '"PAT_INFO"."OP_ROD_AD_SYST"'
    end
    object dsetPatOP_ROD_AD_DIAST: TIntegerField
      FieldName = 'OP_ROD_AD_DIAST'
      Origin = '"PAT_INFO"."OP_ROD_AD_DIAST"'
    end
    object dsetPatOP_ROD_KROV: TIntegerField
      FieldName = 'OP_ROD_KROV'
      Origin = '"PAT_INFO"."OP_ROD_KROV"'
    end
    object dsetPatVYPISKA_SOST: TIBStringField
      FieldName = 'VYPISKA_SOST'
      Origin = '"PAT_INFO"."VYPISKA_SOST"'
      Size = 1000
    end
    object dsetPatVYPISKA_LIST_NUM: TIntegerField
      FieldName = 'VYPISKA_LIST_NUM'
      Origin = '"PAT_INFO"."VYPISKA_LIST_NUM"'
    end
    object dsetPatVYPISKA_LIST_FROM: TDateField
      FieldName = 'VYPISKA_LIST_FROM'
      Origin = '"PAT_INFO"."VYPISKA_LIST_FROM"'
    end
    object dsetPatVYPISKA_LIST_TO: TDateField
      FieldName = 'VYPISKA_LIST_TO'
      Origin = '"PAT_INFO"."VYPISKA_LIST_TO"'
    end
    object dsetPatVYPISKA_PEREVEDEN_KUDA: TIBStringField
      FieldName = 'VYPISKA_PEREVEDEN_KUDA'
      Origin = '"PAT_INFO"."VYPISKA_PEREVEDEN_KUDA"'
      Size = 100
    end
    object dsetPatVYPISKA_PEREVEDEN_KOGDA: TDateField
      FieldName = 'VYPISKA_PEREVEDEN_KOGDA'
      Origin = '"PAT_INFO"."VYPISKA_PEREVEDEN_KOGDA"'
    end
    object dsetPatOP_ROD_MOCHA: TIBStringField
      FieldName = 'OP_ROD_MOCHA'
      Origin = '"PAT_INFO"."OP_ROD_MOCHA"'
      Size = 500
    end
    object dsetPatDocName: TStringField
      FieldKind = fkLookup
      FieldName = 'DocName'
      LookupDataSet = dsetDir_Sotrudniki
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_SOKR'
      KeyFields = 'PAT_ID'
      Size = 150
      Lookup = True
    end
    object dsetPatANAMNEZ_TECHENIE: TIBStringField
      FieldName = 'ANAMNEZ_TECHENIE'
      Origin = '"PAT_INFO"."ANAMNEZ_TECHENIE"'
      Size = 2000
    end
    object dsetPatANAMNEZ_SOSTOYANIE: TIBStringField
      FieldName = 'ANAMNEZ_SOSTOYANIE'
      Origin = '"PAT_INFO"."ANAMNEZ_SOSTOYANIE"'
      Size = 2000
    end
    object dsetPatAD_RIGHT_SYST: TIntegerField
      FieldName = 'AD_RIGHT_SYST'
      Origin = '"PAT_INFO"."AD_RIGHT_SYST"'
    end
    object dsetPatAD_LEFT_SYST: TIntegerField
      FieldName = 'AD_LEFT_SYST'
      Origin = '"PAT_INFO"."AD_LEFT_SYST"'
    end
    object dsetPatAD_RIGHT_DIAST: TIntegerField
      FieldName = 'AD_RIGHT_DIAST'
      Origin = '"PAT_INFO"."AD_RIGHT_DIAST"'
    end
    object dsetPatAD_LEFT_DIAST: TIntegerField
      FieldName = 'AD_LEFT_DIAST'
      Origin = '"PAT_INFO"."AD_LEFT_DIAST"'
    end
    object dsetPatPRED_VES_PLODA: TIntegerField
      FieldName = 'PRED_VES_PLODA'
      Origin = '"PAT_INFO"."PRED_VES_PLODA"'
    end
    object dsetPatIP_NUMBER: TIBStringField
      FieldName = 'IP_NUMBER'
      Origin = '"PAT_INFO"."IP_NUMBER"'
      Size = 12
    end
    object dsetPatLAST_MENSTRUATION: TDateField
      FieldName = 'LAST_MENSTRUATION'
      Origin = '"PAT_INFO"."LAST_MENSTRUATION"'
    end
    object dsetPatTEMPERATURE: TFloatField
      FieldName = 'TEMPERATURE'
      Origin = '"PAT_INFO"."TEMPERATURE"'
    end
    object dsetPatCOD_PODRAZ: TIBStringField
      FieldName = 'COD_PODRAZ'
      Origin = '"PAT_INFO"."COD_PODRAZ"'
      Size = 100
    end
    object dsetPatID_MESTO_HEARTBEAT: TIntegerField
      FieldName = 'ID_MESTO_HEARTBEAT'
      Origin = '"PAT_INFO"."ID_MESTO_HEARTBEAT"'
    end
    object dsetPatTECH_ROD_PROD_OBSH: TFloatField
      FieldName = 'TECH_ROD_PROD_OBSH'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_OBSH"'
    end
    object dsetPatTECH_ROD_PROD_1: TFloatField
      FieldName = 'TECH_ROD_PROD_1'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_1"'
    end
    object dsetPatTECH_ROD_PROD_3: TFloatField
      FieldName = 'TECH_ROD_PROD_3'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_3"'
    end
    object dsetPatTECH_ROD_PROD_2: TFloatField
      FieldName = 'TECH_ROD_PROD_2'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_2"'
    end
    object dsetPatMERTVOROZH: TIntegerField
      FieldName = 'MERTVOROZH'
      Origin = '"PAT_INFO"."MERTVOROZH"'
    end
    object dsetPatPAT_KROVAT: TIBStringField
      FieldName = 'PAT_KROVAT'
      Origin = '"PAT_INFO"."PAT_KROVAT"'
      Size = 5
    end
    object dsetPatPEREVOD_EP_SOST: TIntegerField
      FieldName = 'PEREVOD_EP_SOST'
      Origin = '"PAT_INFO"."PEREVOD_EP_SOST"'
    end
    object dsetPatSTAT_ID: TIntegerField
      FieldName = 'STAT_ID'
      Origin = '"PAT_INFO"."STAT_ID"'
    end
    object dsetPatOP_ROD_POSLED_TIME: TTimeField
      FieldName = 'OP_ROD_POSLED_TIME'
      Origin = '"PAT_INFO"."OP_ROD_POSLED_TIME"'
    end
    object dsetPatSROK_BEREM: TIntegerField
      FieldName = 'SROK_BEREM'
      Origin = '"PAT_INFO"."SROK_BEREM"'
    end
    object dsetPatREGION_COD: TIntegerField
      FieldName = 'REGION_COD'
      Origin = '"PAT_INFO"."REGION_COD"'
    end
    object dsetPatBEREMENNOST: TIBStringField
      FieldName = 'BEREMENNOST'
      Origin = '"PAT_INFO"."BEREMENNOST"'
      Size = 1000
    end
    object dsetPatSOST_PRI_POSTUP: TIBStringField
      FieldName = 'SOST_PRI_POSTUP'
      Origin = '"PAT_INFO"."SOST_PRI_POSTUP"'
      Size = 1000
    end
    object dsetPatTECH_ROD_D_M: TIBStringField
      FieldName = 'TECH_ROD_D_M'
      Origin = '"PAT_INFO"."TECH_ROD_D_M"'
      Size = 200
    end
    object dsetPatTECH_ROD_OBOLOCH: TIBStringField
      FieldName = 'TECH_ROD_OBOLOCH'
      Origin = '"PAT_INFO"."TECH_ROD_OBOLOCH"'
      Size = 200
    end
    object dsetPatTECH_ROD_PSYH_2: TIBStringField
      FieldName = 'TECH_ROD_PSYH_2'
      Origin = '"PAT_INFO"."TECH_ROD_PSYH_2"'
      Size = 500
    end
    object dsetPatTECH_ROD_AK_PRIN: TIntegerField
      FieldName = 'TECH_ROD_AK_PRIN'
      Origin = '"PAT_INFO"."TECH_ROD_AK_PRIN"'
    end
    object dsetPatTECH_ROD_VR_PRIN: TIntegerField
      FieldName = 'TECH_ROD_VR_PRIN'
      Origin = '"PAT_INFO"."TECH_ROD_VR_PRIN"'
    end
    object dsetPatTECH_ROD_AK_POSL: TIntegerField
      FieldName = 'TECH_ROD_AK_POSL'
      Origin = '"PAT_INFO"."TECH_ROD_AK_POSL"'
    end
    object dsetPatTECH_ROD_VR_POSL: TSmallintField
      FieldName = 'TECH_ROD_VR_POSL'
      Origin = '"PAT_INFO"."TECH_ROD_VR_POSL"'
    end
    object dsetPatOP_ROD_VR: TIntegerField
      FieldName = 'OP_ROD_VR'
      Origin = '"PAT_INFO"."OP_ROD_VR"'
    end
    object dsetPatPEREVOD_EP_VR: TIntegerField
      FieldName = 'PEREVOD_EP_VR'
      Origin = '"PAT_INFO"."PEREVOD_EP_VR"'
    end
    object dsetPatakushPOSL: TStringField
      FieldKind = fkLookup
      FieldName = 'akushPOSL'
      LookupDataSet = dsetDirAkush
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_AKUSH_LOOK'
      KeyFields = 'TECH_ROD_AK_POSL'
      Size = 105
      Lookup = True
    end
    object dsetPatDOKprinim: TStringField
      FieldKind = fkLookup
      FieldName = 'DOKprinim'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'TECH_ROD_VR_PRIN'
      Size = 105
      Lookup = True
    end
    object dsetPatDOKposl: TStringField
      FieldKind = fkLookup
      FieldName = 'DOKposl'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'TECH_ROD_VR_POSL'
      Size = 105
      Lookup = True
    end
    object dsetPatEffected: TStringField
      FieldKind = fkLookup
      FieldName = 'Effected'
      LookupDataSet = dsetEffect
      LookupKeyFields = 'EF_ID'
      LookupResultField = 'EF_NAME'
      KeyFields = 'TECH_ROD_EF'
      Size = 100
      Lookup = True
    end
    object dsetPatDOCopisanie: TStringField
      FieldKind = fkLookup
      FieldName = 'DOCopisanie'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'OP_ROD_VR'
      Size = 150
      Lookup = True
    end
    object dsetPatDOCperevod: TStringField
      FieldKind = fkLookup
      FieldName = 'DOCperevod'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'PEREVOD_EP_VR'
      Size = 150
      Lookup = True
    end
    object dsetPatAkushPrin: TStringField
      FieldKind = fkLookup
      FieldName = 'AkushPrin'
      LookupDataSet = dsetDirAkush
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_AKUSH_LOOK'
      KeyFields = 'TECH_ROD_AK_PRIN'
      Size = 105
      Lookup = True
    end
  end
  object trMain: TIBTransaction
    Active = True
    DefaultDatabase = dbMain
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 8
    Top = 72
  end
  object dbMain: TIBDatabase
    Connected = True
    DatabaseName = 'bb.ssmu.ru:Main_DB.fdb'
    Params.Strings = (
      'user_name=ADMIN'
      'password=admin'
      'lc_ctype=WIN1251')
    LoginPrompt = False
    DefaultTransaction = trMain
    ServerType = 'IBServer'
    Left = 8
    Top = 16
  end
  object dsPat: TDataSource
    DataSet = dsetPat
    Left = 72
    Top = 64
  end
  object quGB: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quGBAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from GROUP_OF_BLOOD '
      'order by GB_ID')
    Left = 784
    Top = 256
  end
  object dsGB: TDataSource
    DataSet = quGB
    Left = 784
    Top = 304
  end
  object dsetChild: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetChildAfterDelete
    AfterInsert = dsetChildAfterInsert
    AfterPost = dsetChildAfterPost
    BeforePost = dsetChildBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from CHILD'
      'where'
      '  CHILD_ID = :OLD_CHILD_ID')
    InsertSQL.Strings = (
      'insert into CHILD'
      
        '  (ABDOMINAL_ORGANS, ANUS, APGAR_ID, ASFIKS_DLITEL, ASFIKS_MERJI' +
        '_OJIVL, '
      
        '   BD_TIME, BORN_SOST, BREATH, CHASI_GONO_BLEN, CHILD_BD, CHILD_' +
        'DATE_PEREVOD_PAL, '
      
        '   CHILD_ID, CHILD_MASS, CHILD_OKR_GRUD, CHILD_OKR_HEAD, CHILD_P' +
        'EREVEDEN, '
      
        '   CHILD_POSTUPIL, CHILD_ROST, CHILD_UMER, CHILD_VYPISAN, COULOR' +
        '_OF_SKIN, '
      
        '   DATE_IZVESHEN_POLIKLINIK, DATE_OUT, DEZ_AKUSHERKA_ID, DEZ_DOC' +
        '_ID, DIR_DONOSH_ID, '
      
        '   DS_FIN, DS_PREDVAR, EPICRISIS, EXTERNAL_ARTICULATIO, EXTERNAL' +
        '_GENITALS, '
      
        '   F_I_DATE, F_I_TIME, GBCHILD_ID, HEAD, HEART, MECONIUM, MKB_CO' +
        'DE, NASLEDSTV_MAT, '
      
        '   NASLEDSTV_OTEC, NERVOUS_SYSTEM, NUMBER_HISTORY_CHILD, OP_ROD_' +
        'KULTYA, '
      
        '   OP_ROD_PUPOVINA, OP_ROD_RODILSA, OTKAZ_VAKCINA, PAL_ID_1, PAL' +
        '_ID_2, '
      
        '   PAL_KROVAT_1, PAL_KROVAT_2, PAT_ID, PEREDNIY_VID_PREDLEZHANIA' +
        ', PEREVED_KUDA, '
      
        '   PEREVEDEN_TIME, POLIKLINIKA, POROKI_RAZV, POSTUPIL_TIME, PRE_' +
        'DIAGNOSIS, '
      
        '   PRIEMN_JORNAL, PRINJALA_MEDSESTRA, PROF_GONO_BLEN, PULSE, PUP' +
        'OV_OST, '
      
        '   PURPOSE_AND_RATIONALE, RECOMMENDATIONS, RODOV_TRAVM, SDALA_AK' +
        'USHERKA, '
      
        '   SEX_ID, SKIN, SOST_PRI_PEREVOD, STATE, STATE_OUT, TAKE_MC, TE' +
        'LEPHONED, '
      
        '   TELEPHONED_ACCEPT, THORAX, TRANSMIT_MC, UMER_TIME, URINATION,' +
        ' VISIBLE_MUCOUS, '
      '   VYPISAN_TIME)'
      'values'
      
        '  (:ABDOMINAL_ORGANS, :ANUS, :APGAR_ID, :ASFIKS_DLITEL, :ASFIKS_' +
        'MERJI_OJIVL, '
      
        '   :BD_TIME, :BORN_SOST, :BREATH, :CHASI_GONO_BLEN, :CHILD_BD, :' +
        'CHILD_DATE_PEREVOD_PAL, '
      
        '   :CHILD_ID, :CHILD_MASS, :CHILD_OKR_GRUD, :CHILD_OKR_HEAD, :CH' +
        'ILD_PEREVEDEN, '
      
        '   :CHILD_POSTUPIL, :CHILD_ROST, :CHILD_UMER, :CHILD_VYPISAN, :C' +
        'OULOR_OF_SKIN, '
      
        '   :DATE_IZVESHEN_POLIKLINIK, :DATE_OUT, :DEZ_AKUSHERKA_ID, :DEZ' +
        '_DOC_ID, '
      
        '   :DIR_DONOSH_ID, :DS_FIN, :DS_PREDVAR, :EPICRISIS, :EXTERNAL_A' +
        'RTICULATIO, '
      
        '   :EXTERNAL_GENITALS, :F_I_DATE, :F_I_TIME, :GBCHILD_ID, :HEAD,' +
        ' :HEART, '
      
        '   :MECONIUM, :MKB_CODE, :NASLEDSTV_MAT, :NASLEDSTV_OTEC, :NERVO' +
        'US_SYSTEM, '
      
        '   :NUMBER_HISTORY_CHILD, :OP_ROD_KULTYA, :OP_ROD_PUPOVINA, :OP_' +
        'ROD_RODILSA, '
      
        '   :OTKAZ_VAKCINA, :PAL_ID_1, :PAL_ID_2, :PAL_KROVAT_1, :PAL_KRO' +
        'VAT_2, '
      
        '   :PAT_ID, :PEREDNIY_VID_PREDLEZHANIA, :PEREVED_KUDA, :PEREVEDE' +
        'N_TIME, '
      
        '   :POLIKLINIKA, :POROKI_RAZV, :POSTUPIL_TIME, :PRE_DIAGNOSIS, :' +
        'PRIEMN_JORNAL, '
      
        '   :PRINJALA_MEDSESTRA, :PROF_GONO_BLEN, :PULSE, :PUPOV_OST, :PU' +
        'RPOSE_AND_RATIONALE, '
      
        '   :RECOMMENDATIONS, :RODOV_TRAVM, :SDALA_AKUSHERKA, :SEX_ID, :S' +
        'KIN, :SOST_PRI_PEREVOD, '
      
        '   :STATE, :STATE_OUT, :TAKE_MC, :TELEPHONED, :TELEPHONED_ACCEPT' +
        ', :THORAX, '
      
        '   :TRANSMIT_MC, :UMER_TIME, :URINATION, :VISIBLE_MUCOUS, :VYPIS' +
        'AN_TIME)')
    RefreshSQL.Strings = (
      'Select '
      '  CHILD_ID,'
      '  GBCHILD_ID,'
      '  PAT_ID,'
      '  CHILD_BD,'
      '  BD_TIME,'
      '  CHILD_POSTUPIL,'
      '  POSTUPIL_TIME,'
      '  CHILD_VYPISAN,'
      '  VYPISAN_TIME,'
      '  CHILD_UMER,'
      '  UMER_TIME,'
      '  CHILD_PEREVEDEN,'
      '  PEREVEDEN_TIME,'
      '  SEX_ID,'
      '  CHILD_MASS,'
      '  CHILD_ROST,'
      '  CHILD_OKR_HEAD,'
      '  CHILD_OKR_GRUD,'
      '  MKB_CODE,'
      '  DEZ_AKUSHERKA_ID,'
      '  DEZ_DOC_ID,'
      '  SDALA_AKUSHERKA,'
      '  PRINJALA_MEDSESTRA,'
      '  DS_PREDVAR,'
      '  DS_FIN,'
      '  PAL_ID_1,'
      '  PAL_KROVAT_1,'
      '  PAL_ID_2,'
      '  PAL_KROVAT_2,'
      '  NUMBER_HISTORY_CHILD,'
      '  STATE,'
      '  SKIN,'
      '  VISIBLE_MUCOUS,'
      '  HEAD,'
      '  THORAX,'
      '  BREATH,'
      '  HEART,'
      '  PULSE,'
      '  NERVOUS_SYSTEM,'
      '  ABDOMINAL_ORGANS,'
      '  MECONIUM,'
      '  URINATION,'
      '  EXTERNAL_GENITALS,'
      '  ANUS,'
      '  EXTERNAL_ARTICULATIO,'
      '  PRE_DIAGNOSIS,'
      '  PURPOSE_AND_RATIONALE,'
      '  F_I_DATE,'
      '  F_I_TIME,'
      '  PUPOV_OST,'
      '  EPICRISIS,'
      '  STATE_OUT,'
      '  RECOMMENDATIONS,'
      '  DATE_OUT,'
      '  TRANSMIT_MC,'
      '  TAKE_MC,'
      '  POLIKLINIKA,'
      '  DATE_IZVESHEN_POLIKLINIK,'
      '  TELEPHONED_ACCEPT,'
      '  OTKAZ_VAKCINA,'
      '  TELEPHONED,'
      '  PEREDNIY_VID_PREDLEZHANIA,'
      '  OP_ROD_PUPOVINA,'
      '  OP_ROD_KULTYA,'
      '  OP_ROD_RODILSA,'
      '  NASLEDSTV_OTEC,'
      '  NASLEDSTV_MAT,'
      '  PEREVED_KUDA,'
      '  PRIEMN_JORNAL,'
      '  CHILD_DATE_PEREVOD_PAL,'
      '  ASFIKS_DLITEL,'
      '  ASFIKS_MERJI_OJIVL,'
      '  BORN_SOST,'
      '  DIR_DONOSH_ID,'
      '  APGAR_ID,'
      '  RODOV_TRAVM,'
      '  POROKI_RAZV,'
      '  PROF_GONO_BLEN,'
      '  CHASI_GONO_BLEN,'
      '  SOST_PRI_PEREVOD,'
      '  COULOR_OF_SKIN'
      'from CHILD '
      'where'
      '  CHILD_ID = :CHILD_ID')
    SelectSQL.Strings = (
      'select * from CHILD'
      'where PAT_ID = :PAT_ID'
      'order by CHILD_BD, BD_TIME')
    ModifySQL.Strings = (
      'update CHILD'
      'set'
      '  ABDOMINAL_ORGANS = :ABDOMINAL_ORGANS,'
      '  ANUS = :ANUS,'
      '  APGAR_ID = :APGAR_ID,'
      '  ASFIKS_DLITEL = :ASFIKS_DLITEL,'
      '  ASFIKS_MERJI_OJIVL = :ASFIKS_MERJI_OJIVL,'
      '  BD_TIME = :BD_TIME,'
      '  BORN_SOST = :BORN_SOST,'
      '  BREATH = :BREATH,'
      '  CHASI_GONO_BLEN = :CHASI_GONO_BLEN,'
      '  CHILD_BD = :CHILD_BD,'
      '  CHILD_DATE_PEREVOD_PAL = :CHILD_DATE_PEREVOD_PAL,'
      '  CHILD_ID = :CHILD_ID,'
      '  CHILD_MASS = :CHILD_MASS,'
      '  CHILD_OKR_GRUD = :CHILD_OKR_GRUD,'
      '  CHILD_OKR_HEAD = :CHILD_OKR_HEAD,'
      '  CHILD_PEREVEDEN = :CHILD_PEREVEDEN,'
      '  CHILD_POSTUPIL = :CHILD_POSTUPIL,'
      '  CHILD_ROST = :CHILD_ROST,'
      '  CHILD_UMER = :CHILD_UMER,'
      '  CHILD_VYPISAN = :CHILD_VYPISAN,'
      '  COULOR_OF_SKIN = :COULOR_OF_SKIN,'
      '  DATE_IZVESHEN_POLIKLINIK = :DATE_IZVESHEN_POLIKLINIK,'
      '  DATE_OUT = :DATE_OUT,'
      '  DEZ_AKUSHERKA_ID = :DEZ_AKUSHERKA_ID,'
      '  DEZ_DOC_ID = :DEZ_DOC_ID,'
      '  DIR_DONOSH_ID = :DIR_DONOSH_ID,'
      '  DS_FIN = :DS_FIN,'
      '  DS_PREDVAR = :DS_PREDVAR,'
      '  EPICRISIS = :EPICRISIS,'
      '  EXTERNAL_ARTICULATIO = :EXTERNAL_ARTICULATIO,'
      '  EXTERNAL_GENITALS = :EXTERNAL_GENITALS,'
      '  F_I_DATE = :F_I_DATE,'
      '  F_I_TIME = :F_I_TIME,'
      '  GBCHILD_ID = :GBCHILD_ID,'
      '  HEAD = :HEAD,'
      '  HEART = :HEART,'
      '  MECONIUM = :MECONIUM,'
      '  MKB_CODE = :MKB_CODE,'
      '  NASLEDSTV_MAT = :NASLEDSTV_MAT,'
      '  NASLEDSTV_OTEC = :NASLEDSTV_OTEC,'
      '  NERVOUS_SYSTEM = :NERVOUS_SYSTEM,'
      '  NUMBER_HISTORY_CHILD = :NUMBER_HISTORY_CHILD,'
      '  OP_ROD_KULTYA = :OP_ROD_KULTYA,'
      '  OP_ROD_PUPOVINA = :OP_ROD_PUPOVINA,'
      '  OP_ROD_RODILSA = :OP_ROD_RODILSA,'
      '  OTKAZ_VAKCINA = :OTKAZ_VAKCINA,'
      '  PAL_ID_1 = :PAL_ID_1,'
      '  PAL_ID_2 = :PAL_ID_2,'
      '  PAL_KROVAT_1 = :PAL_KROVAT_1,'
      '  PAL_KROVAT_2 = :PAL_KROVAT_2,'
      '  PAT_ID = :PAT_ID,'
      '  PEREDNIY_VID_PREDLEZHANIA = :PEREDNIY_VID_PREDLEZHANIA,'
      '  PEREVED_KUDA = :PEREVED_KUDA,'
      '  PEREVEDEN_TIME = :PEREVEDEN_TIME,'
      '  POLIKLINIKA = :POLIKLINIKA,'
      '  POROKI_RAZV = :POROKI_RAZV,'
      '  POSTUPIL_TIME = :POSTUPIL_TIME,'
      '  PRE_DIAGNOSIS = :PRE_DIAGNOSIS,'
      '  PRIEMN_JORNAL = :PRIEMN_JORNAL,'
      '  PRINJALA_MEDSESTRA = :PRINJALA_MEDSESTRA,'
      '  PROF_GONO_BLEN = :PROF_GONO_BLEN,'
      '  PULSE = :PULSE,'
      '  PUPOV_OST = :PUPOV_OST,'
      '  PURPOSE_AND_RATIONALE = :PURPOSE_AND_RATIONALE,'
      '  RECOMMENDATIONS = :RECOMMENDATIONS,'
      '  RODOV_TRAVM = :RODOV_TRAVM,'
      '  SDALA_AKUSHERKA = :SDALA_AKUSHERKA,'
      '  SEX_ID = :SEX_ID,'
      '  SKIN = :SKIN,'
      '  SOST_PRI_PEREVOD = :SOST_PRI_PEREVOD,'
      '  STATE = :STATE,'
      '  STATE_OUT = :STATE_OUT,'
      '  TAKE_MC = :TAKE_MC,'
      '  TELEPHONED = :TELEPHONED,'
      '  TELEPHONED_ACCEPT = :TELEPHONED_ACCEPT,'
      '  THORAX = :THORAX,'
      '  TRANSMIT_MC = :TRANSMIT_MC,'
      '  UMER_TIME = :UMER_TIME,'
      '  URINATION = :URINATION,'
      '  VISIBLE_MUCOUS = :VISIBLE_MUCOUS,'
      '  VYPISAN_TIME = :VYPISAN_TIME'
      'where'
      '  CHILD_ID = :OLD_CHILD_ID')
    ParamCheck = True
    UniDirectional = False
    Filtered = True
    GeneratorField.Field = 'CHILD_ID'
    GeneratorField.Generator = 'GEN_CHILD_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 136
    Top = 8
    object dsetChildCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"CHILD"."CHILD_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetChildGBCHILD_ID: TIntegerField
      DefaultExpression = '0'
      FieldName = 'GBCHILD_ID'
      Origin = '"CHILD"."GBCHILD_ID"'
      Required = True
    end
    object dsetChildPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"CHILD"."PAT_ID"'
      Required = True
    end
    object dsetChildCHILD_BD: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = 'CHILD_BD'
      Origin = '"CHILD"."CHILD_BD"'
      Required = True
    end
    object dsetChildBD_TIME: TTimeField
      DisplayLabel = #1042#1088#1077#1084#1103' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = 'BD_TIME'
      Origin = '"CHILD"."BD_TIME"'
      Required = True
    end
    object dsetChildPOSTUPIL_TIME: TTimeField
      FieldName = 'POSTUPIL_TIME'
      Origin = '"CHILD"."POSTUPIL_TIME"'
    end
    object dsetChildCHILD_POSTUPIL: TDateField
      FieldName = 'CHILD_POSTUPIL'
      Origin = '"CHILD"."CHILD_POSTUPIL"'
    end
    object dsetChildCHILD_VYPISAN: TDateField
      FieldName = 'CHILD_VYPISAN'
      Origin = '"CHILD"."CHILD_VYPISAN"'
    end
    object dsetChildVYPISAN_TIME: TTimeField
      FieldName = 'VYPISAN_TIME'
      Origin = '"CHILD"."VYPISAN_TIME"'
    end
    object dsetChildCHILD_UMER: TDateField
      FieldName = 'CHILD_UMER'
      Origin = '"CHILD"."CHILD_UMER"'
    end
    object dsetChildUMER_TIME: TTimeField
      FieldName = 'UMER_TIME'
      Origin = '"CHILD"."UMER_TIME"'
    end
    object dsetChildCHILD_PEREVEDEN: TDateField
      FieldName = 'CHILD_PEREVEDEN'
      Origin = '"CHILD"."CHILD_PEREVEDEN"'
    end
    object dsetChildPEREVEDEN_TIME: TTimeField
      FieldName = 'PEREVEDEN_TIME'
      Origin = '"CHILD"."PEREVEDEN_TIME"'
    end
    object dsetChildGROUP_AB0: TStringField
      DisplayLabel = #1043#1088#1091#1087#1087#1072' '#1082#1088#1086#1074#1080' '#1088#1077#1073#1077#1085#1082#1072
      FieldKind = fkLookup
      FieldName = 'GROUP_AB0'
      LookupDataSet = quGB
      LookupKeyFields = 'GB_ID'
      LookupResultField = 'GROUP_AB0'
      KeyFields = 'GBCHILD_ID'
      Size = 10
      Lookup = True
    end
    object dsetChildSEX_ID: TIBStringField
      DefaultExpression = '-'
      FieldName = 'SEX_ID'
      Origin = '"CHILD"."SEX_ID"'
      Required = True
      Size = 1
    end
    object dsetChildSex_Child: TIBStringField
      FieldKind = fkLookup
      FieldName = 'Sex_Child'
      LookupDataSet = quSEX
      LookupKeyFields = 'SEX_ID'
      LookupResultField = 'SEX_CHILD'
      KeyFields = 'SEX_ID'
      Lookup = True
    end
    object dsetChildCHILD_MASS: TIntegerField
      FieldName = 'CHILD_MASS'
      Origin = '"CHILD"."CHILD_MASS"'
    end
    object dsetChildCHILD_ROST: TIntegerField
      FieldName = 'CHILD_ROST'
      Origin = '"CHILD"."CHILD_ROST"'
    end
    object dsetChildCHILD_OKR_HEAD: TIntegerField
      FieldName = 'CHILD_OKR_HEAD'
      Origin = '"CHILD"."CHILD_OKR_HEAD"'
    end
    object dsetChildCHILD_OKR_GRUD: TIntegerField
      FieldName = 'CHILD_OKR_GRUD'
      Origin = '"CHILD"."CHILD_OKR_GRUD"'
    end
    object dsetChildMKB_CODE: TIBStringField
      FieldName = 'MKB_CODE'
      Origin = '"CHILD"."MKB_CODE"'
      Size = 111
    end
    object dsetChildLUp_Mkb_Code: TStringField
      FieldKind = fkLookup
      FieldName = 'LUp_Mkb_Code'
      LookupDataSet = quMkb_Code
      LookupKeyFields = 'MKB_COD'
      LookupResultField = 'MKB_COD'
      KeyFields = 'MKB_CODE'
      Lookup = True
    end
    object dsetChildDEZ_AKUSHERKA_ID: TIntegerField
      FieldName = 'DEZ_AKUSHERKA_ID'
      Origin = '"CHILD"."DEZ_AKUSHERKA_ID"'
    end
    object dsetChildDEZ_DOC_ID: TIntegerField
      FieldName = 'DEZ_DOC_ID'
      Origin = '"CHILD"."DEZ_DOC_ID"'
    end
    object dsetChildSDALA_AKUSHERKA: TIntegerField
      FieldName = 'SDALA_AKUSHERKA'
      Origin = '"CHILD"."SDALA_AKUSHERKA"'
    end
    object dsetChildPRINJALA_MEDSESTRA: TIntegerField
      FieldName = 'PRINJALA_MEDSESTRA'
      Origin = '"CHILD"."PRINJALA_MEDSESTRA"'
    end
    object dsetChildDS_PREDVAR: TIBStringField
      FieldName = 'DS_PREDVAR'
      Origin = '"CHILD"."DS_PREDVAR"'
      Size = 1000
    end
    object dsetChildDS_FIN: TIBStringField
      FieldName = 'DS_FIN'
      Origin = '"CHILD"."DS_FIN"'
      Size = 1000
    end
    object dsetChildPAL_ID_1: TIBStringField
      FieldName = 'PAL_ID_1'
      Origin = '"CHILD"."PAL_ID_1"'
      Size = 25
    end
    object dsetChildPAL_KROVAT_1: TSmallintField
      FieldName = 'PAL_KROVAT_1'
      Origin = '"CHILD"."PAL_KROVAT_1"'
    end
    object dsetChildPAL_ID_2: TIBStringField
      FieldName = 'PAL_ID_2'
      Origin = '"CHILD"."PAL_ID_2"'
      Size = 25
    end
    object dsetChildPAL_KROVAT_2: TSmallintField
      FieldName = 'PAL_KROVAT_2'
      Origin = '"CHILD"."PAL_KROVAT_2"'
    end
    object dsetChildNUMBER_HISTORY_CHILD: TIntegerField
      FieldName = 'NUMBER_HISTORY_CHILD'
      Origin = '"CHILD"."NUMBER_HISTORY_CHILD"'
    end
    object dsetChildSTATE: TIBStringField
      FieldName = 'STATE'
      Origin = '"CHILD"."STATE"'
      Size = 1000
    end
    object dsetChildSKIN: TIBStringField
      FieldName = 'SKIN'
      Origin = '"CHILD"."SKIN"'
      Size = 1000
    end
    object dsetChildVISIBLE_MUCOUS: TIBStringField
      FieldName = 'VISIBLE_MUCOUS'
      Origin = '"CHILD"."VISIBLE_MUCOUS"'
      Size = 1000
    end
    object dsetChildHEAD: TIBStringField
      FieldName = 'HEAD'
      Origin = '"CHILD"."HEAD"'
      Size = 1000
    end
    object dsetChildTHORAX: TIBStringField
      FieldName = 'THORAX'
      Origin = '"CHILD"."THORAX"'
      Size = 1000
    end
    object dsetChildBREATH: TIBStringField
      FieldName = 'BREATH'
      Origin = '"CHILD"."BREATH"'
      Size = 1000
    end
    object dsetChildHEART: TIBStringField
      FieldName = 'HEART'
      Origin = '"CHILD"."HEART"'
      Size = 1000
    end
    object dsetChildPULSE: TIBStringField
      FieldName = 'PULSE'
      Origin = '"CHILD"."PULSE"'
      Size = 1000
    end
    object dsetChildNERVOUS_SYSTEM: TIBStringField
      FieldName = 'NERVOUS_SYSTEM'
      Origin = '"CHILD"."NERVOUS_SYSTEM"'
      Size = 1000
    end
    object dsetChildABDOMINAL_ORGANS: TIBStringField
      FieldName = 'ABDOMINAL_ORGANS'
      Origin = '"CHILD"."ABDOMINAL_ORGANS"'
      Size = 1000
    end
    object dsetChildMECONIUM: TIBStringField
      FieldName = 'MECONIUM'
      Origin = '"CHILD"."MECONIUM"'
      Size = 1000
    end
    object dsetChildURINATION: TIBStringField
      FieldName = 'URINATION'
      Origin = '"CHILD"."URINATION"'
      Size = 1000
    end
    object dsetChildEXTERNAL_GENITALS: TIBStringField
      FieldName = 'EXTERNAL_GENITALS'
      Origin = '"CHILD"."EXTERNAL_GENITALS"'
      Size = 1000
    end
    object dsetChildANUS: TIBStringField
      FieldName = 'ANUS'
      Origin = '"CHILD"."ANUS"'
      Size = 1000
    end
    object dsetChildEXTERNAL_ARTICULATIO: TIBStringField
      FieldName = 'EXTERNAL_ARTICULATIO'
      Origin = '"CHILD"."EXTERNAL_ARTICULATIO"'
      Size = 1000
    end
    object dsetChildPRE_DIAGNOSIS: TIBStringField
      FieldName = 'PRE_DIAGNOSIS'
      Origin = '"CHILD"."PRE_DIAGNOSIS"'
      Size = 1000
    end
    object dsetChildPURPOSE_AND_RATIONALE: TIBStringField
      FieldName = 'PURPOSE_AND_RATIONALE'
      Origin = '"CHILD"."PURPOSE_AND_RATIONALE"'
      Size = 2000
    end
    object dsetChildF_I_DATE: TDateField
      FieldName = 'F_I_DATE'
      Origin = '"CHILD"."F_I_DATE"'
    end
    object dsetChildF_I_TIME: TTimeField
      FieldName = 'F_I_TIME'
      Origin = '"CHILD"."F_I_TIME"'
    end
    object dsetChildPUPOV_OST: TIBStringField
      FieldName = 'PUPOV_OST'
      Origin = '"CHILD"."PUPOV_OST"'
      Size = 1000
    end
    object dsetChildEPICRISIS: TIBStringField
      FieldName = 'EPICRISIS'
      Origin = '"CHILD"."EPICRISIS"'
      Size = 2000
    end
    object dsetChildSTATE_OUT: TIBStringField
      FieldName = 'STATE_OUT'
      Origin = '"CHILD"."STATE_OUT"'
      Size = 1000
    end
    object dsetChildRECOMMENDATIONS: TIBStringField
      FieldName = 'RECOMMENDATIONS'
      Origin = '"CHILD"."RECOMMENDATIONS"'
      Size = 1000
    end
    object dsetChildDATE_OUT: TDateField
      FieldName = 'DATE_OUT'
      Origin = '"CHILD"."DATE_OUT"'
    end
    object dsetChildTRANSMIT_MC: TIntegerField
      FieldName = 'TRANSMIT_MC'
      Origin = '"CHILD"."TRANSMIT_MC"'
    end
    object dsetChildTAKE_MC: TIBStringField
      FieldName = 'TAKE_MC'
      Origin = '"CHILD"."TAKE_MC"'
      Size = 35
    end
    object dsetChildPOLIKLINIKA: TIBStringField
      FieldName = 'POLIKLINIKA'
      Origin = '"CHILD"."POLIKLINIKA"'
      Size = 35
    end
    object dsetChildDATE_IZVESHEN_POLIKLINIK: TDateField
      FieldName = 'DATE_IZVESHEN_POLIKLINIK'
      Origin = '"CHILD"."DATE_IZVESHEN_POLIKLINIK"'
    end
    object dsetChildTELEPHONED: TIntegerField
      FieldName = 'TELEPHONED'
      Origin = '"CHILD"."TELEPHONED"'
    end
    object dsetChildTELEPHONED_ACCEPT: TIBStringField
      FieldName = 'TELEPHONED_ACCEPT'
      Origin = '"CHILD"."TELEPHONED_ACCEPT"'
      Size = 35
    end
    object dsetChildFIO_SOKR: TStringField
      FieldKind = fkLookup
      FieldName = 'FIO_SOKR'
      LookupDataSet = dsetDir_Sotrudniki
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_SOKR'
      KeyFields = 'TELEPHONED'
      Size = 105
      Lookup = True
    end
    object dsetChildOTKAZ_VAKCINA: TIBStringField
      FieldName = 'OTKAZ_VAKCINA'
      Origin = '"CHILD"."OTKAZ_VAKCINA"'
      Size = 50
    end
    object dsetChildTransmit_MC_Look: TStringField
      FieldKind = fkLookup
      FieldName = 'Transmit_MC_Look'
      LookupDataSet = dsetDir_Sotrudniki
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_SOKR'
      KeyFields = 'TRANSMIT_MC'
      Size = 105
      Lookup = True
    end
    object dsetChildPEREDNIY_VID_PREDLEZHANIA: TIBStringField
      FieldName = 'PEREDNIY_VID_PREDLEZHANIA'
      Origin = '"CHILD"."PEREDNIY_VID_PREDLEZHANIA"'
      Size = 1000
    end
    object dsetChildOP_ROD_PUPOVINA: TIBStringField
      FieldName = 'OP_ROD_PUPOVINA'
      Origin = '"CHILD"."OP_ROD_PUPOVINA"'
      Size = 200
    end
    object dsetChildOP_ROD_KULTYA: TIBStringField
      FieldName = 'OP_ROD_KULTYA'
      Origin = '"CHILD"."OP_ROD_KULTYA"'
      Size = 200
    end
    object dsetChildOP_ROD_RODILSA: TIBStringField
      FieldName = 'OP_ROD_RODILSA'
      Origin = '"CHILD"."OP_ROD_RODILSA"'
      Size = 500
    end
    object dsetChildNASLEDSTV_OTEC: TIBStringField
      FieldName = 'NASLEDSTV_OTEC'
      Origin = '"CHILD"."NASLEDSTV_OTEC"'
      Size = 1000
    end
    object dsetChildNASLEDSTV_MAT: TIBStringField
      FieldName = 'NASLEDSTV_MAT'
      Origin = '"CHILD"."NASLEDSTV_MAT"'
      Size = 1000
    end
    object dsetChildFIO_AKUSH_LOOK: TStringField
      FieldKind = fkLookup
      FieldName = 'FIO_AKUSH_LOOK'
      LookupDataSet = dsetDirAkush
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_AKUSH_LOOK'
      KeyFields = 'SDALA_AKUSHERKA'
      Size = 105
      Lookup = True
    end
    object dsetChildFIO_MS_LOOK: TStringField
      FieldKind = fkLookup
      FieldName = 'FIO_MS_LOOK'
      LookupDataSet = dsetDir_MC
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_MS_LOOK'
      KeyFields = 'PRINJALA_MEDSESTRA'
      Size = 105
      Lookup = True
    end
    object dsetChildPEREVED_KUDA: TIBStringField
      FieldName = 'PEREVED_KUDA'
      Origin = '"CHILD"."PEREVED_KUDA"'
      Size = 50
    end
    object dsetChildPRIEMN_JORNAL: TIntegerField
      FieldName = 'PRIEMN_JORNAL'
      Origin = '"CHILD"."PRIEMN_JORNAL"'
    end
    object dsetChildCHILD_DATE_PEREVOD_PAL: TDateField
      FieldName = 'CHILD_DATE_PEREVOD_PAL'
      Origin = '"CHILD"."CHILD_DATE_PEREVOD_PAL"'
    end
    object dsetChildASFIKS_DLITEL: TIBStringField
      FieldName = 'ASFIKS_DLITEL'
      Origin = '"CHILD"."ASFIKS_DLITEL"'
      Size = 10
    end
    object dsetChildASFIKS_MERJI_OJIVL: TIBStringField
      FieldName = 'ASFIKS_MERJI_OJIVL'
      Origin = '"CHILD"."ASFIKS_MERJI_OJIVL"'
      Size = 52
    end
    object dsetChildBORN_SOST: TIntegerField
      FieldName = 'BORN_SOST'
      Origin = '"CHILD"."BORN_SOST"'
    end
    object dsetChildDIR_DONOSH_ID: TIntegerField
      DefaultExpression = '0'
      FieldName = 'DIR_DONOSH_ID'
      Origin = '"CHILD"."DIR_DONOSH_ID"'
    end
    object dsetChildDONOSH_STATUS: TStringField
      DefaultExpression = '1'
      FieldKind = fkLookup
      FieldName = 'DONOSH_STATUS'
      LookupDataSet = quDir_Donosh
      LookupKeyFields = 'DONOSH_ID'
      LookupResultField = 'DONOSH_STATUS'
      KeyFields = 'DIR_DONOSH_ID'
      Size = 15
      Lookup = True
    end
    object dsetChildBorn_sost_look: TStringField
      DefaultExpression = '1'
      FieldKind = fkLookup
      FieldName = 'Born_sost_look'
      LookupDataSet = quDir_Born_sost
      LookupKeyFields = 'DIR_BORN_ID'
      LookupResultField = 'DIR_BORN_SOST'
      KeyFields = 'BORN_SOST'
      Size = 15
      Lookup = True
    end
    object dsetChildAPGAR_ID: TIntegerField
      FieldName = 'APGAR_ID'
      Origin = '"CHILD"."APGAR_ID"'
    end
    object dsetChildRODOV_TRAVM: TIBStringField
      FieldName = 'RODOV_TRAVM'
      Origin = '"CHILD"."RODOV_TRAVM"'
      Size = 1000
    end
    object dsetChildPOROKI_RAZV: TIBStringField
      FieldName = 'POROKI_RAZV'
      Origin = '"CHILD"."POROKI_RAZV"'
      Size = 1000
    end
    object dsetChildPROF_GONO_BLEN: TIBStringField
      FieldName = 'PROF_GONO_BLEN'
      Origin = '"CHILD"."PROF_GONO_BLEN"'
      Size = 60
    end
    object dsetChildCHASI_GONO_BLEN: TTimeField
      FieldName = 'CHASI_GONO_BLEN'
      Origin = '"CHILD"."CHASI_GONO_BLEN"'
    end
    object dsetChildSOST_PRI_PEREVOD: TIBStringField
      FieldName = 'SOST_PRI_PEREVOD'
      Origin = '"CHILD"."SOST_PRI_PEREVOD"'
      Size = 100
    end
    object dsetChildCOULOR_OF_SKIN: TIBStringField
      FieldName = 'COULOR_OF_SKIN'
      Origin = '"CHILD"."COULOR_OF_SKIN"'
      Size = 100
    end
    object dsetChildDEZ_AKUSHERKA_Look: TStringField
      FieldKind = fkLookup
      FieldName = 'DEZ_AKUSHERKA_Look'
      LookupDataSet = dsetDirAkush
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_AKUSH_LOOK'
      KeyFields = 'DEZ_AKUSHERKA_ID'
      Size = 105
      Lookup = True
    end
    object dsetChildDEZ_DOC_ginek_Look: TStringField
      FieldKind = fkLookup
      FieldName = 'DEZ_DOC_ginek_Look'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'DEZ_DOC_ID'
      Size = 105
      Lookup = True
    end
    object dsetChildPUPOVINA_DLINA: TIntegerField
      DisplayLabel = #1044#1083#1080#1085#1072
      FieldName = 'PUPOVINA_DLINA'
      Origin = '"CHILD"."PUPOVINA_DLINA"'
    end
    object dsetChildPUPOVINA_OBVITIE: TIBStringField
      DisplayLabel = #1086#1073#1074#1080#1090#1080#1077' '#1074#1086#1082#1088#1091#1075
      FieldName = 'PUPOVINA_OBVITIE'
      Origin = '"CHILD"."PUPOVINA_OBVITIE"'
      Size = 500
    end
    object dsetChildPUPOVINA_OSOB: TIBStringField
      DisplayLabel = #1086#1089#1086#1073#1077#1085#1085#1086#1089#1090#1080
      FieldName = 'PUPOVINA_OSOB'
      Origin = '"CHILD"."PUPOVINA_OSOB"'
      Size = 200
    end
  end
  object dsCild: TDataSource
    DataSet = dsetChild
    OnStateChange = dsCildStateChange
    Left = 136
    Top = 64
  end
  object dsNac: TDataSource
    DataSet = quNac
    Left = 808
    Top = 520
  end
  object quNac: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quNacAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select *  from NAC'
      'order by NAC_ID')
    Left = 808
    Top = 464
  end
  object quTypeDoc: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quTypeDocAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from TYPE_OF_DOCUMENT'
      'order by DOCUM_ID')
    Filtered = True
    Left = 864
    Top = 464
  end
  object dsTypeDoc: TDataSource
    DataSet = quTypeDoc
    Left = 824
    Top = 64
  end
  object quTownInfo: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quTownInfoAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from TOWNS_INFO'
      'order by TWN_CODE')
    Filtered = True
    Left = 552
    Top = 464
  end
  object dsTownInfo: TDataSource
    DataSet = quTownInfo
    Left = 552
    Top = 520
  end
  object dsSP: TDataSource
    DataSet = quSP
    Left = 704
    Top = 312
  end
  object quSP: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quSPAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from SP'
      'order by SP_ID')
    Filtered = True
    Left = 704
    Top = 256
  end
  object dsUCH: TDataSource
    DataSet = quUCH
    Left = 624
    Top = 520
  end
  object quUCH: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quUCHAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from UCH'
      'order by UCH_ID')
    Filtered = True
    Left = 624
    Top = 464
  end
  object dsCONSULT: TDataSource
    DataSet = dsetCONSULT
    Left = 152
    Top = 328
  end
  object quSEX: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quSEXAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from Sex'
      'order by sex_ID')
    Left = 744
    Top = 258
  end
  object dsSEX: TDataSource
    DataSet = quSEX
    Left = 744
    Top = 308
  end
  object quMkb_Code: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quMkb_CodeAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from MKB_10'
      'order by MKB_COD')
    Left = 84
    Top = 434
    object quMkb_CodeMKB_COD: TIBStringField
      FieldName = 'MKB_COD'
      Origin = '"MKB_10"."MKB_COD"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 111
    end
    object quMkb_CodeMKB_NAME: TIBStringField
      DisplayLabel = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      FieldName = 'MKB_NAME'
      Origin = '"MKB_10"."MKB_NAME"'
      Size = 1000
    end
  end
  object dsMkb_Code: TDataSource
    DataSet = quMkb_Code
    Left = 156
    Top = 500
  end
  object dsetBlog_Pediat: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BeforePost = dsetBlog_PediatBeforePost
    OnCalcFields = dsetBlog_PediatCalcFields
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from BLOG_PEDIATRICIAN'
      'where'
      '  APPOINTMENTS = :OLD_APPOINTMENTS and'
      '  BLOG_DATE = :OLD_BLOG_DATE and'
      '  BLOG_PED_ID = :OLD_BLOG_PED_ID and'
      '  CHILD_ID = :OLD_CHILD_ID and'
      '  DAY_OF_LIFE = :OLD_DAY_OF_LIFE and'
      '  INSPECTION_DATA = :OLD_INSPECTION_DATA')
    InsertSQL.Strings = (
      'insert into BLOG_PEDIATRICIAN'
      
        '  (APPOINTMENTS, BLOG_DATE, BLOG_PED_ID, CHILD_ID, DAY_OF_LIFE, ' +
        'INSPECTION_DATA)'
      'values'
      
        '  (:APPOINTMENTS, :BLOG_DATE, :BLOG_PED_ID, :CHILD_ID, :DAY_OF_L' +
        'IFE, :INSPECTION_DATA)')
    RefreshSQL.Strings = (
      'Select '
      '  BLOG_PED_ID,'
      '  BLOG_DATE,'
      '  DAY_OF_LIFE,'
      '  INSPECTION_DATA,'
      '  APPOINTMENTS,'
      '  CHILD_ID'
      'from BLOG_PEDIATRICIAN '
      'where'
      '  APPOINTMENTS = :APPOINTMENTS and'
      '  BLOG_DATE = :BLOG_DATE and'
      '  BLOG_PED_ID = :BLOG_PED_ID and'
      '  CHILD_ID = :CHILD_ID and'
      '  DAY_OF_LIFE = :DAY_OF_LIFE and'
      '  INSPECTION_DATA = :INSPECTION_DATA')
    SelectSQL.Strings = (
      'select * from BLOG_PEDIATRICIAN'
      'where CHILD_ID = :CHILD_ID'
      'order by BLOG_DATE')
    ModifySQL.Strings = (
      'update BLOG_PEDIATRICIAN'
      'set'
      '  APPOINTMENTS = :APPOINTMENTS,'
      '  BLOG_DATE = :BLOG_DATE,'
      '  BLOG_PED_ID = :BLOG_PED_ID,'
      '  CHILD_ID = :CHILD_ID,'
      '  DAY_OF_LIFE = :DAY_OF_LIFE,'
      '  INSPECTION_DATA = :INSPECTION_DATA'
      'where'
      '  APPOINTMENTS = :OLD_APPOINTMENTS and'
      '  BLOG_DATE = :OLD_BLOG_DATE and'
      '  BLOG_PED_ID = :OLD_BLOG_PED_ID and'
      '  CHILD_ID = :OLD_CHILD_ID and'
      '  DAY_OF_LIFE = :OLD_DAY_OF_LIFE and'
      '  INSPECTION_DATA = :OLD_INSPECTION_DATA')
    ParamCheck = True
    UniDirectional = False
    Filtered = True
    GeneratorField.Field = 'BLOG_PED_ID'
    GeneratorField.Generator = 'GEN_BLOG_PEDIATRICIAN_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsCild
    Left = 232
    Top = 218
    object dsetBlog_PediatBLOG_PED_ID: TIntegerField
      FieldName = 'BLOG_PED_ID'
      Origin = '"BLOG_PEDIATRICIAN"."BLOG_PED_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetBlog_PediatBLOG_DATE: TDateField
      FieldName = 'BLOG_DATE'
      Origin = '"BLOG_PEDIATRICIAN"."BLOG_DATE"'
      Required = True
    end
    object dsetBlog_PediatDAY_OF_LIFE: TSmallintField
      FieldName = 'DAY_OF_LIFE'
      Origin = '"BLOG_PEDIATRICIAN"."DAY_OF_LIFE"'
    end
    object dsetBlog_PediatINSPECTION_DATA: TIBStringField
      FieldName = 'INSPECTION_DATA'
      Origin = '"BLOG_PEDIATRICIAN"."INSPECTION_DATA"'
      Size = 2000
    end
    object dsetBlog_PediatAPPOINTMENTS: TIBStringField
      FieldName = 'APPOINTMENTS'
      Origin = '"BLOG_PEDIATRICIAN"."APPOINTMENTS"'
      Size = 2000
    end
    object dsetBlog_PediatCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"BLOG_PEDIATRICIAN"."CHILD_ID"'
    end
    object dsetBlog_PediatDen_zizni: TStringField
      DisplayLabel = #1044#1077#1085#1100' '#1078#1080#1079#1085#1080
      FieldKind = fkCalculated
      FieldName = 'Den_zizni'
      Size = 10
      Calculated = True
    end
  end
  object dsBlog_Pediat: TDataSource
    DataSet = dsetBlog_Pediat
    OnStateChange = dsBlog_PediatStateChange
    Left = 228
    Top = 273
  end
  object dsDiagnos: TDataSource
    DataSet = dsetDiagnos
    Left = 192
    Top = 64
  end
  object dsetDiagnos: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetDiagnosAfterDelete
    AfterPost = dsetDiagnosAfterPost
    BeforePost = dsetDiagnosBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DIAGNOS'
      'where'
      '  DIAGNOS_ID = :OLD_DIAGNOS_ID')
    InsertSQL.Strings = (
      'insert into DIAGNOS'
      '  (COMMENT, DIAGNOS_ID, DS_TYPE_ID, MKB_COD, PAT_ID)'
      'values'
      '  (:COMMENT, :DIAGNOS_ID, :DS_TYPE_ID, :MKB_COD, :PAT_ID)')
    RefreshSQL.Strings = (
      'Select '
      '  DIAGNOS_ID,'
      '  PAT_ID,'
      '  MKB_COD,'
      '  DS_TYPE_ID,'
      '  COMMENT'
      'from DIAGNOS '
      'where'
      '  DIAGNOS_ID = :DIAGNOS_ID')
    SelectSQL.Strings = (
      'select * from DIAGNOS'
      'where PAT_ID=:PAT_ID'
      'order by DS_TYPE_ID, MKB_COD')
    ModifySQL.Strings = (
      'update DIAGNOS'
      'set'
      '  COMMENT = :COMMENT,'
      '  DIAGNOS_ID = :DIAGNOS_ID,'
      '  DS_TYPE_ID = :DS_TYPE_ID,'
      '  MKB_COD = :MKB_COD,'
      '  PAT_ID = :PAT_ID'
      'where'
      '  DIAGNOS_ID = :OLD_DIAGNOS_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'DIAGNOS_ID'
    GeneratorField.Generator = 'GEN_DIAGNOS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 192
    Top = 8
    object dsetDiagnosDIAGNOS_ID: TIntegerField
      FieldName = 'DIAGNOS_ID'
      Origin = '"DIAGNOS"."DIAGNOS_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetDiagnosPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"DIAGNOS"."PAT_ID"'
      Required = True
    end
    object dsetDiagnosMKB_COD: TIBStringField
      DisplayLabel = #1050#1086#1076
      FieldName = 'MKB_COD'
      Origin = '"DIAGNOS"."MKB_COD"'
      Required = True
      Size = 111
    end
    object dsetDiagnosDS_TYPE_ID: TIntegerField
      DefaultExpression = '0'
      FieldName = 'DS_TYPE_ID'
      Origin = '"DIAGNOS"."DS_TYPE_ID"'
    end
    object dsetDiagnosDS_TYPE_NAME: TStringField
      DisplayLabel = #1058#1080#1087
      FieldKind = fkLookup
      FieldName = 'DS_TYPE_NAME'
      LookupDataSet = quDiagnos
      LookupKeyFields = 'DS_TYPE_ID'
      LookupResultField = 'DS_TYPE_NAME'
      KeyFields = 'DS_TYPE_ID'
      Size = 1000
      Lookup = True
    end
    object dsetDiagnosCOMMENT: TIBStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1080
      FieldName = 'COMMENT'
      Origin = '"DIAGNOS"."COMMENT"'
      Size = 2000
    end
    object dsetDiagnosMKB_NAME: TStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1076#1080#1072#1075#1085#1086#1079#1072
      FieldKind = fkLookup
      FieldName = 'MKB_NAME'
      LookupDataSet = quDiagnosName
      LookupKeyFields = 'MKB_COD'
      LookupResultField = 'MKB_NAME'
      KeyFields = 'MKB_COD'
      Size = 100
      Lookup = True
    end
  end
  object quDiagnos: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from  DS_TYPE'
      'order by DS_TYPE_ID')
    Left = 192
    Top = 120
    object quDiagnosDS_TYPE_ID: TIntegerField
      FieldName = 'DS_TYPE_ID'
      Origin = '"DS_TYPE"."DS_TYPE_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object quDiagnosDS_TYPE_NAME: TIBStringField
      FieldName = 'DS_TYPE_NAME'
      Origin = '"DS_TYPE"."DS_TYPE_NAME"'
      Size = 1000
    end
  end
  object quDiagnosName: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from MKB_10'
      'order by MKB_COD')
    Left = 472
    Top = 464
    object quDiagnosNameMKB_COD: TIBStringField
      FieldName = 'MKB_COD'
      Origin = '"MKB_10"."MKB_COD"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 111
    end
    object quDiagnosNameMKB_NAME: TIBStringField
      FieldName = 'MKB_NAME'
      Origin = '"MKB_10"."MKB_NAME"'
      Size = 1000
    end
  end
  object dsVakcina: TDataSource
    DataSet = dsetVakcina
    OnStateChange = dsVakcinaStateChange
    Left = 504
    Top = 64
  end
  object dsetVakcina: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetVakcinaAfterDelete
    AfterInsert = dsetVakcinaAfterInsert
    AfterPost = dsetVakcinaAfterPost
    BeforePost = dsetVakcinaBeforePost
    OnCalcFields = dsetVakcinaCalcFields
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from VAKCINA'
      'where'
      '  VAKCINA_ID = :OLD_VAKCINA_ID')
    InsertSQL.Strings = (
      'insert into VAKCINA'
      
        '  (CHILD_ID, DATA_VAKCINA, DEN_WIZNI, DOZA, REAKSIA, SROK_GODN, ' +
        'VAKCINA_ID, '
      '   VID_VAKCINY)'
      'values'
      
        '  (:CHILD_ID, :DATA_VAKCINA, :DEN_WIZNI, :DOZA, :REAKSIA, :SROK_' +
        'GODN, :VAKCINA_ID, '
      '   :VID_VAKCINY)')
    RefreshSQL.Strings = (
      'Select '
      '  VAKCINA_ID,'
      '  DATA_VAKCINA,'
      '  DEN_WIZNI,'
      '  DOZA,'
      '  SROK_GODN,'
      '  VID_VAKCINY,'
      '  REAKSIA,'
      '  CHILD_ID'
      'from VAKCINA '
      'where'
      '  VAKCINA_ID = :VAKCINA_ID')
    SelectSQL.Strings = (
      'select *  from VAKCINA'
      'where CHILD_ID=:CHILD_ID'
      'order by DATA_VAKCINA, VAKCINA_ID')
    ModifySQL.Strings = (
      'update VAKCINA'
      'set'
      '  CHILD_ID = :CHILD_ID,'
      '  DATA_VAKCINA = :DATA_VAKCINA,'
      '  DEN_WIZNI = :DEN_WIZNI,'
      '  DOZA = :DOZA,'
      '  REAKSIA = :REAKSIA,'
      '  SROK_GODN = :SROK_GODN,'
      '  VAKCINA_ID = :VAKCINA_ID,'
      '  VID_VAKCINY = :VID_VAKCINY'
      'where'
      '  VAKCINA_ID = :OLD_VAKCINA_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'VAKCINA_ID'
    GeneratorField.Generator = 'GEN_VAKCINA_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsCild
    Left = 504
    Top = 8
    object dsetVakcinaVAKCINA_ID: TIntegerField
      DisplayLabel = #1042#1072#1082#1094#1080#1085#1072
      FieldName = 'VAKCINA_ID'
      Origin = '"VAKCINA"."VAKCINA_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dsetVakcinaDATA_VAKCINA: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DATA_VAKCINA'
      Origin = '"VAKCINA"."DATA_VAKCINA"'
      Required = True
    end
    object dsetVakcinaDOZA: TIBStringField
      DisplayLabel = #1044#1086#1079#1072
      FieldName = 'DOZA'
      Origin = '"VAKCINA"."DOZA"'
      Required = True
      Size = 50
    end
    object dsetVakcinaSROK_GODN: TDateField
      DisplayLabel = #1057#1088#1086#1082' '#1075#1086#1076#1085#1086#1089#1090#1080
      FieldName = 'SROK_GODN'
      Origin = '"VAKCINA"."SROK_GODN"'
      Required = True
    end
    object dsetVakcinaVID_VAKCINY: TIBStringField
      DisplayLabel = #1042#1080#1076' '#1074#1072#1082#1094#1080#1085#1099
      FieldName = 'VID_VAKCINY'
      Origin = '"VAKCINA"."VID_VAKCINY"'
      Required = True
      Size = 30
    end
    object dsetVakcinaREAKSIA: TIBStringField
      DisplayLabel = #1056#1077#1072#1082#1094#1080#1103' '#1085#1072' '#1087#1088#1080#1074#1080#1074#1082#1091
      FieldName = 'REAKSIA'
      Origin = '"VAKCINA"."REAKSIA"'
      Size = 50
    end
    object dsetVakcinaCHILD_ID: TIntegerField
      DisplayLabel = #1056#1077#1073#1077#1085#1086#1082
      FieldName = 'CHILD_ID'
      Origin = '"VAKCINA"."CHILD_ID"'
      Required = True
    end
    object dsetVakcinaSOTRUDNIK_ID: TIntegerField
      DisplayLabel = #1057#1086#1090#1088#1091#1076#1085#1080#1082
      FieldName = 'SOTRUDNIK_ID'
      Origin = '"VAKCINA"."SOTRUDNIK_ID"'
      Required = True
    end
    object dsetVakcinaFIO_MS_LOOK: TStringField
      DisplayLabel = #1057#1086#1090#1088#1091#1076#1085#1080#1082
      FieldKind = fkLookup
      FieldName = 'FIO_MS_LOOK'
      LookupDataSet = dsetDir_MC
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_MS_LOOK'
      KeyFields = 'SOTRUDNIK_ID'
      Size = 50
      Lookup = True
    end
    object dsetVakcinaDEN_WIZNI: TIntegerField
      DisplayLabel = #1044#1077#1085#1100' '#1078#1080#1079#1085#1080
      FieldKind = fkCalculated
      FieldName = 'DEN_WIZNI'
      Calculated = True
    end
  end
  object dsOtkaz: TDataSource
    DataSet = dsetChild
    OnDataChange = dsOtkazDataChange
    Left = 32
    Top = 616
  end
  object dsFirst_Insp: TDataSource
    DataSet = dsetFirst_Insp_CHILD
    Left = 332
    Top = 276
  end
  object dsetFirst_Insp_CHILD: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterInsert = dsetFirst_Insp_CHILDAfterInsert
    BeforePost = dsetFirst_Insp_CHILDBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from FIRST_INSPECTION'
      'where'
      '  FIRST_INSPECTION_ID = :OLD_FIRST_INSPECTION_ID')
    InsertSQL.Strings = (
      'insert into FIRST_INSPECTION'
      
        '  (ABDOMINAL_ORGANS, ANUS, BREATH, CHILD_ID, EXTERNAL_ARTICULATI' +
        'O, EXTERNAL_GENITALS, '
      
        '   F_I_DATE, F_I_TIME, FIRST_INSPECTION_ID, HEAD, HEART, MECONIU' +
        'M, NERVOUS_SYSTEM, '
      
        '   PRE_DIAGNOSIS, PULSE, PUPOV_OST, PURPOSE_AND_RATIONALE, SKIN,' +
        ' STATE, '
      '   THORAX, URINATION, VISIBLE_MUCOUS)'
      'values'
      
        '  (:ABDOMINAL_ORGANS, :ANUS, :BREATH, :CHILD_ID, :EXTERNAL_ARTIC' +
        'ULATIO, '
      
        '   :EXTERNAL_GENITALS, :F_I_DATE, :F_I_TIME, :FIRST_INSPECTION_I' +
        'D, :HEAD, '
      
        '   :HEART, :MECONIUM, :NERVOUS_SYSTEM, :PRE_DIAGNOSIS, :PULSE, :' +
        'PUPOV_OST, '
      
        '   :PURPOSE_AND_RATIONALE, :SKIN, :STATE, :THORAX, :URINATION, :' +
        'VISIBLE_MUCOUS)')
    RefreshSQL.Strings = (
      'Select '
      '  FIRST_INSPECTION_ID,'
      '  STATE,'
      '  SKIN,'
      '  VISIBLE_MUCOUS,'
      '  HEAD,'
      '  THORAX,'
      '  BREATH,'
      '  HEART,'
      '  PULSE,'
      '  NERVOUS_SYSTEM,'
      '  ABDOMINAL_ORGANS,'
      '  MECONIUM,'
      '  URINATION,'
      '  EXTERNAL_GENITALS,'
      '  ANUS,'
      '  EXTERNAL_ARTICULATIO,'
      '  PRE_DIAGNOSIS,'
      '  PURPOSE_AND_RATIONALE,'
      '  CHILD_ID,'
      '  F_I_DATE,'
      '  F_I_TIME,'
      '  PUPOV_OST'
      'from FIRST_INSPECTION '
      'where'
      '  FIRST_INSPECTION_ID = :FIRST_INSPECTION_ID')
    SelectSQL.Strings = (
      'select *  from FIRST_INSPECTION'
      'where CHILD_ID = :CHILD_ID'
      'order by F_I_DATE, F_I_TIME')
    ModifySQL.Strings = (
      'update FIRST_INSPECTION'
      'set'
      '  ABDOMINAL_ORGANS = :ABDOMINAL_ORGANS,'
      '  ANUS = :ANUS,'
      '  BREATH = :BREATH,'
      '  CHILD_ID = :CHILD_ID,'
      '  EXTERNAL_ARTICULATIO = :EXTERNAL_ARTICULATIO,'
      '  EXTERNAL_GENITALS = :EXTERNAL_GENITALS,'
      '  F_I_DATE = :F_I_DATE,'
      '  F_I_TIME = :F_I_TIME,'
      '  FIRST_INSPECTION_ID = :FIRST_INSPECTION_ID,'
      '  HEAD = :HEAD,'
      '  HEART = :HEART,'
      '  MECONIUM = :MECONIUM,'
      '  NERVOUS_SYSTEM = :NERVOUS_SYSTEM,'
      '  PRE_DIAGNOSIS = :PRE_DIAGNOSIS,'
      '  PULSE = :PULSE,'
      '  PUPOV_OST = :PUPOV_OST,'
      '  PURPOSE_AND_RATIONALE = :PURPOSE_AND_RATIONALE,'
      '  SKIN = :SKIN,'
      '  STATE = :STATE,'
      '  THORAX = :THORAX,'
      '  URINATION = :URINATION,'
      '  VISIBLE_MUCOUS = :VISIBLE_MUCOUS'
      'where'
      '  FIRST_INSPECTION_ID = :OLD_FIRST_INSPECTION_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'FIRST_INSPECTION_ID'
    GeneratorField.Generator = 'GEN_FIRST_INSPECTION_ID'
    GeneratorField.ApplyEvent = gamOnPost
    DataSource = dsCild
    Left = 332
    Top = 218
    object dsetFirst_Insp_CHILDF_I_DATE: TDateField
      FieldName = 'F_I_DATE'
      Origin = '"FIRST_INSPECTION"."F_I_DATE"'
    end
    object dsetFirst_Insp_CHILDF_I_TIME: TTimeField
      FieldName = 'F_I_TIME'
      Origin = '"FIRST_INSPECTION"."F_I_TIME"'
    end
    object dsetFirst_Insp_CHILDFIRST_INSPECTION_ID: TIntegerField
      FieldName = 'FIRST_INSPECTION_ID'
      Origin = '"FIRST_INSPECTION"."FIRST_INSPECTION_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetFirst_Insp_CHILDSTATE: TIBStringField
      FieldName = 'STATE'
      Origin = '"FIRST_INSPECTION"."STATE"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDSKIN: TIBStringField
      FieldName = 'SKIN'
      Origin = '"FIRST_INSPECTION"."SKIN"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDVISIBLE_MUCOUS: TIBStringField
      FieldName = 'VISIBLE_MUCOUS'
      Origin = '"FIRST_INSPECTION"."VISIBLE_MUCOUS"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDHEAD: TIBStringField
      FieldName = 'HEAD'
      Origin = '"FIRST_INSPECTION"."HEAD"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDTHORAX: TIBStringField
      FieldName = 'THORAX'
      Origin = '"FIRST_INSPECTION"."THORAX"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDBREATH: TIBStringField
      FieldName = 'BREATH'
      Origin = '"FIRST_INSPECTION"."BREATH"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDHEART: TIBStringField
      FieldName = 'HEART'
      Origin = '"FIRST_INSPECTION"."HEART"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDPULSE: TIBStringField
      FieldName = 'PULSE'
      Origin = '"FIRST_INSPECTION"."PULSE"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDNERVOUS_SYSTEM: TIBStringField
      FieldName = 'NERVOUS_SYSTEM'
      Origin = '"FIRST_INSPECTION"."NERVOUS_SYSTEM"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDABDOMINAL_ORGANS: TIBStringField
      FieldName = 'ABDOMINAL_ORGANS'
      Origin = '"FIRST_INSPECTION"."ABDOMINAL_ORGANS"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDMECONIUM: TIBStringField
      FieldName = 'MECONIUM'
      Origin = '"FIRST_INSPECTION"."MECONIUM"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDURINATION: TIBStringField
      FieldName = 'URINATION'
      Origin = '"FIRST_INSPECTION"."URINATION"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDEXTERNAL_GENITALS: TIBStringField
      FieldName = 'EXTERNAL_GENITALS'
      Origin = '"FIRST_INSPECTION"."EXTERNAL_GENITALS"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDANUS: TIBStringField
      FieldName = 'ANUS'
      Origin = '"FIRST_INSPECTION"."ANUS"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDEXTERNAL_ARTICULATIO: TIBStringField
      FieldName = 'EXTERNAL_ARTICULATIO'
      Origin = '"FIRST_INSPECTION"."EXTERNAL_ARTICULATIO"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDPRE_DIAGNOSIS: TIBStringField
      FieldName = 'PRE_DIAGNOSIS'
      Origin = '"FIRST_INSPECTION"."PRE_DIAGNOSIS"'
      Size = 1000
    end
    object dsetFirst_Insp_CHILDPURPOSE_AND_RATIONALE: TIBStringField
      FieldName = 'PURPOSE_AND_RATIONALE'
      Origin = '"FIRST_INSPECTION"."PURPOSE_AND_RATIONALE"'
      Size = 2000
    end
    object dsetFirst_Insp_CHILDCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"FIRST_INSPECTION"."CHILD_ID"'
      Required = True
    end
    object dsetFirst_Insp_CHILDPUPOV_OST: TIBStringField
      FieldName = 'PUPOV_OST'
      Origin = '"FIRST_INSPECTION"."PUPOV_OST"'
      Size = 1000
    end
  end
  object dsOper: TDataSource
    DataSet = dsetOper
    Left = 320
    Top = 64
  end
  object dsetOper: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from OPERATION'
      'where'
      '  OP_TYPE_ID = :OLD_OP_TYPE_ID and'
      '  OPERATION_ID = :OLD_OPERATION_ID and'
      '  PAT_ID = :OLD_PAT_ID')
    InsertSQL.Strings = (
      'insert into OPERATION'
      '  (OP_TYPE_ID, OPERATION_ID, PAT_ID)'
      'values'
      '  (:OP_TYPE_ID, :OPERATION_ID, :PAT_ID)')
    RefreshSQL.Strings = (
      'Select '
      '  PAT_ID,'
      '  OP_TYPE_ID,'
      '  OPERATION_ID'
      'from OPERATION '
      'where'
      '  OP_TYPE_ID = :OP_TYPE_ID and'
      '  OPERATION_ID = :OPERATION_ID and'
      '  PAT_ID = :PAT_ID')
    SelectSQL.Strings = (
      'select * from OPERATION'
      'where PAT_ID=:PAT_ID'
      'order by OP_TYPE_ID')
    ModifySQL.Strings = (
      'update OPERATION'
      'set'
      '  OP_TYPE_ID = :OP_TYPE_ID,'
      '  OPERATION_ID = :OPERATION_ID,'
      '  PAT_ID = :PAT_ID'
      'where'
      '  OP_TYPE_ID = :OLD_OP_TYPE_ID and'
      '  OPERATION_ID = :OLD_OPERATION_ID and'
      '  PAT_ID = :OLD_PAT_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'PAT_ID'
    GeneratorField.Generator = 'GEN_OPERATION_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 320
    Top = 8
    object dsetOperPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"OPERATION"."PAT_ID"'
      Required = True
    end
    object dsetOperOP_TYPE_ID: TIntegerField
      FieldName = 'OP_TYPE_ID'
      Origin = '"OPERATION"."OP_TYPE_ID"'
    end
    object dsetOperOPERATION_ID: TIntegerField
      FieldName = 'OPERATION_ID'
      Origin = '"OPERATION"."OPERATION_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetOperOP_TYPE_NAME: TStringField
      DisplayLabel = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
      FieldKind = fkLookup
      FieldName = 'OP_TYPE_NAME'
      LookupDataSet = quOper
      LookupKeyFields = 'OP_TYPE_ID'
      LookupResultField = 'OP_TYPE_NAME'
      KeyFields = 'OPERATION_ID'
      Size = 120
      Lookup = True
    end
  end
  object quOper: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from  OP_TYPE'
      'order by OP_TYPE_ID')
    Left = 320
    Top = 120
    object quOperOP_TYPE_ID: TIntegerField
      FieldName = 'OP_TYPE_ID'
      Origin = '"OP_TYPE"."OP_TYPE_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object quOperOP_TYPE_NAME: TIBStringField
      FieldName = 'OP_TYPE_NAME'
      Origin = '"OP_TYPE"."OP_TYPE_NAME"'
      Size = 1000
    end
  end
  object dsetTemper: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetTemperAfterDelete
    AfterInsert = dsetTemperAfterInsert
    AfterPost = dsetTemperAfterPost
    BeforePost = dsetTemperBeforePost
    OnCalcFields = dsetTemperCalcFields
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from PAT_TEMPERATURA'
      'where'
      '  TEMP_ID = :OLD_TEMP_ID')
    InsertSQL.Strings = (
      'insert into PAT_TEMPERATURA'
      '  (PAT_ID, TEMP, TEMP_DATA, TEMP_ID, TEMP_TIME)'
      'values'
      '  (:PAT_ID, :TEMP, :TEMP_DATA, :TEMP_ID, :TEMP_TIME)')
    RefreshSQL.Strings = (
      'select * from PAT_TEMPERATURA'
      'where PAT_ID=:PAT_ID'
      'and  TEMP_ID = :TEMP_ID'
      'order by TEMP_DATA, TEMP_TIME, TEMP_ID')
    SelectSQL.Strings = (
      'select * from PAT_TEMPERATURA'
      'where PAT_ID=:PAT_ID'
      'order by TEMP_DATA, TEMP_TIME, TEMP_ID'
      '')
    ModifySQL.Strings = (
      'update PAT_TEMPERATURA'
      'set'
      '  PAT_ID = :PAT_ID,'
      '  TEMP = :TEMP,'
      '  TEMP_DATA = :TEMP_DATA,'
      '  TEMP_ID = :TEMP_ID,'
      '  TEMP_TIME = :TEMP_TIME'
      'where'
      '  TEMP_ID = :OLD_TEMP_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'TEMP_ID'
    GeneratorField.Generator = 'GEN_PAT_TEMPERATURA_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 152
    Top = 216
    object dsetTemperTEMP_ID: TIntegerField
      FieldName = 'TEMP_ID'
      Origin = '"PAT_TEMPERATURA"."TEMP_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetTemperPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"PAT_TEMPERATURA"."PAT_ID"'
      Required = True
    end
    object dsetTemperTEMP: TFloatField
      DisplayLabel = #1058#1077#1084#1087#1077#1088#1072#1090#1091#1088#1072
      FieldName = 'TEMP'
      Origin = '"PAT_TEMPERATURA"."TEMP"'
    end
    object dsetTemperTEMP_DATA: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'TEMP_DATA'
      Origin = '"PAT_TEMPERATURA"."TEMP_DATA"'
    end
    object dsetTemperTEMP_TIME: TTimeField
      DisplayLabel = #1042#1088#1077#1084#1103
      FieldName = 'TEMP_TIME'
      Origin = '"PAT_TEMPERATURA"."TEMP_TIME"'
    end
    object dsetTemperTEMP_DATA_TIME: TStringField
      FieldKind = fkCalculated
      FieldName = 'TEMP_DATA_TIME'
      Size = 50
      Calculated = True
    end
  end
  object dsTemper: TDataSource
    DataSet = dsetTemper
    Left = 152
    Top = 272
  end
  object dsetDavlenie: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetDavlenieAfterDelete
    AfterInsert = dsetDavlenieAfterInsert
    AfterPost = dsetDavlenieAfterPost
    BeforePost = dsetDavlenieBeforePost
    OnCalcFields = dsetDavlenieCalcFields
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from PAT_DAVLENIE'
      'where'
      '  DAVLENIE_ID = :OLD_DAVLENIE_ID')
    InsertSQL.Strings = (
      'insert into PAT_DAVLENIE'
      
        '  (DAVLENIE_DATA, DAVLENIE_DIAST, DAVLENIE_ID, DAVLENIE_SIST, DA' +
        'VLENIE_TIME, '
      '   PAT_ID)'
      'values'
      
        '  (:DAVLENIE_DATA, :DAVLENIE_DIAST, :DAVLENIE_ID, :DAVLENIE_SIST' +
        ', :DAVLENIE_TIME, '
      '   :PAT_ID)')
    RefreshSQL.Strings = (
      'Select '
      '* from PAT_DAVLENIE '
      'where'
      '  DAVLENIE_ID = :DAVLENIE_ID')
    SelectSQL.Strings = (
      'select  * from PAT_DAVLENIE'
      'where PAT_ID=:PAT_ID'
      'order by DAVLENIE_DATA, DAVLENIE_TIME, DAVLENIE_ID')
    ModifySQL.Strings = (
      'update PAT_DAVLENIE'
      'set'
      '  DAVLENIE_DATA = :DAVLENIE_DATA,'
      '  DAVLENIE_DIAST = :DAVLENIE_DIAST,'
      '  DAVLENIE_ID = :DAVLENIE_ID,'
      '  DAVLENIE_SIST = :DAVLENIE_SIST,'
      '  DAVLENIE_TIME = :DAVLENIE_TIME,'
      '  PAT_ID = :PAT_ID'
      'where'
      '  DAVLENIE_ID = :OLD_DAVLENIE_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'DAVLENIE_ID'
    GeneratorField.Generator = 'GEN_PAT_DAVLENIE_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 72
    Top = 216
    object dsetDavleniePAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"PAT_DAVLENIE"."PAT_ID"'
      Required = True
    end
    object dsetDavlenieDAVLENIE_ID: TIntegerField
      FieldName = 'DAVLENIE_ID'
      Origin = '"PAT_DAVLENIE"."DAVLENIE_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetDavlenieDAVLENIE_DATA: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DAVLENIE_DATA'
      Origin = '"PAT_DAVLENIE"."DAVLENIE_DATA"'
    end
    object dsetDavlenieDAVLENIE_TIME: TTimeField
      DisplayLabel = #1042#1088#1077#1084#1103
      FieldName = 'DAVLENIE_TIME'
      Origin = '"PAT_DAVLENIE"."DAVLENIE_TIME"'
    end
    object dsetDavlenieDAVLENIE_SIST: TIntegerField
      DisplayLabel = #1057#1080#1089#1090' '#1040#1044
      FieldName = 'DAVLENIE_SIST'
      Origin = '"PAT_DAVLENIE"."DAVLENIE_SIST"'
    end
    object dsetDavlenieDAVLENIE_DIAST: TIntegerField
      DisplayLabel = #1044#1080#1072#1089#1090' '#1040#1044
      FieldName = 'DAVLENIE_DIAST'
      Origin = '"PAT_DAVLENIE"."DAVLENIE_DIAST"'
    end
    object dsetDavlenieDATE_TIME: TDateTimeField
      FieldKind = fkCalculated
      FieldName = 'DATE_TIME'
      Calculated = True
    end
  end
  object dsDavlenie: TDataSource
    DataSet = dsetDavlenie
    Left = 72
    Top = 272
  end
  object dsNaznPat: TDataSource
    DataSet = dsetNaznPat
    Left = 440
    Top = 64
  end
  object dsetNaznPat: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetNaznPatAfterDelete
    AfterInsert = dsetNaznPatAfterInsert
    AfterPost = dsetNaznPatAfterPost
    BeforePost = dsetNaznPatBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from NAZN_LS'
      'where'
      '  NAZNLS_ID = :OLD_NAZNLS_ID')
    InsertSQL.Strings = (
      'insert into NAZN_LS'
      
        '  (DOC_ID, NAZNLS_DATA, NAZNLS_DOZA, NAZNLS_ID, OTMENA_DATE, PAT' +
        '_ID, RLS_COD, '
      '   VVEDENIELS_ID)'
      'values'
      
        '  (:DOC_ID, :NAZNLS_DATA, :NAZNLS_DOZA, :NAZNLS_ID, :OTMENA_DATE' +
        ', :PAT_ID, '
      '   :RLS_COD, :VVEDENIELS_ID)')
    RefreshSQL.Strings = (
      'Select '
      '* from NAZN_LS '
      'where'
      '  NAZNLS_ID = :NAZNLS_ID')
    SelectSQL.Strings = (
      'select * from  NAZN_LS'
      'where PAT_ID=:PAT_ID'
      'order by NAZNLS_DATA, NAZNLS_ID')
    ModifySQL.Strings = (
      'update NAZN_LS'
      'set'
      '  DOC_ID = :DOC_ID,'
      '  NAZNLS_DATA = :NAZNLS_DATA,'
      '  NAZNLS_DOZA = :NAZNLS_DOZA,'
      '  NAZNLS_ID = :NAZNLS_ID,'
      '  OTMENA_DATE = :OTMENA_DATE,'
      '  PAT_ID = :PAT_ID,'
      '  RLS_COD = :RLS_COD,'
      '  VVEDENIELS_ID = :VVEDENIELS_ID'
      'where'
      '  NAZNLS_ID = :OLD_NAZNLS_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'NAZNLS_ID'
    GeneratorField.Generator = 'GEN_NAZN_LS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 440
    Top = 8
    object dsetNaznPatNAZNLS_DATA: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'NAZNLS_DATA'
      Origin = '"NAZN_LS"."NAZNLS_DATA"'
      Required = True
    end
    object dsetNaznPatRLS_COD: TIntegerField
      FieldName = 'RLS_COD'
      Origin = '"NAZN_LS"."RLS_COD"'
      Required = True
    end
    object dsetNaznPatNAZNLS_DOZA: TIBStringField
      DisplayLabel = #1044#1086#1079#1072
      FieldName = 'NAZNLS_DOZA'
      Origin = '"NAZN_LS"."NAZNLS_DOZA"'
      Required = True
      Size = 50
    end
    object dsetNaznPatVVEDENIELS_ID: TIntegerField
      DisplayLabel = #1057#1087#1086#1089#1086#1073' '#1074#1074#1077#1076#1077#1085#1080#1103
      FieldName = 'VVEDENIELS_ID'
      Origin = '"NAZN_LS"."VVEDENIELS_ID"'
      Required = True
    end
    object dsetNaznPatOTMENA_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1090#1084#1077#1085#1099
      FieldName = 'OTMENA_DATE'
      Origin = '"NAZN_LS"."OTMENA_DATE"'
    end
    object dsetNaznPatDOC_ID: TIntegerField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      FieldName = 'DOC_ID'
      Origin = '"NAZN_LS"."DOC_ID"'
      Required = True
    end
    object dsetNaznPatPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"NAZN_LS"."PAT_ID"'
      Required = True
    end
    object dsetNaznPatNAZNLS_ID: TIntegerField
      FieldName = 'NAZNLS_ID'
      Origin = '"NAZN_LS"."NAZNLS_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetNaznPatRLS_NAME: TStringField
      DisplayLabel = #1055#1088#1077#1087#1072#1088#1072#1090
      FieldKind = fkLookup
      FieldName = 'RLS_NAME'
      LookupDataSet = quRLS_COD
      LookupKeyFields = 'RLS_COD'
      LookupResultField = 'RLS_NAME'
      KeyFields = 'RLS_COD'
      Size = 100
      Lookup = True
    end
    object dsetNaznPatVVEDENIELS_TYPE: TStringField
      DisplayLabel = #1057#1087#1086#1089#1086#1073' '#1074#1074#1077#1076#1077#1085#1080#1103
      FieldKind = fkLookup
      FieldName = 'VVEDENIELS_TYPE'
      LookupDataSet = quVvedenieLS
      LookupKeyFields = 'VVEDENIELS_ID'
      LookupResultField = 'VVEDENIELS_TYPE'
      KeyFields = 'VVEDENIELS_ID'
      Lookup = True
    end
    object dsetNaznPatKOLICH_LS: TIBStringField
      DisplayLabel = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
      FieldName = 'KOLICH_LS'
      Origin = '"NAZN_LS"."KOLICH_LS"'
      Size = 10
    end
    object dsetNaznPatFIO_GINEK_LOOK: TStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      FieldKind = fkLookup
      FieldName = 'FIO_GINEK_LOOK'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'DOC_ID'
      Size = 50
      Lookup = True
    end
  end
  object dsNaznAnalyz: TDataSource
    DataSet = dsetNaznAnalyz
    Left = 736
    Top = 64
  end
  object dsetNaznAnalyz: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetNaznAnalyzAfterDelete
    AfterInsert = dsetNaznAnalyzAfterInsert
    AfterPost = dsetNaznAnalyzAfterPost
    BeforePost = dsetNaznAnalyzBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete  from NAZN_ANALYZ'
      'where'
      '  PAT_ID = :OLD_PAT_ID')
    InsertSQL.Strings = (
      'insert into NAZN_ANALYZ'
      
        '  (ANALYZ_TYPE, NAZN_ANALYZ_DATE, NAZN_ANALYZ_ID, PAT_ID, SOTRUD' +
        'NIK_ID)'
      'values'
      
        '  (:ANALYZ_TYPE, :NAZN_ANALYZ_DATE, :NAZN_ANALYZ_ID, :PAT_ID, :S' +
        'OTRUDNIK_ID)')
    RefreshSQL.Strings = (
      'Select '
      '* from NAZN_ANALYZ '
      'where'
      '  PAT_ID = :PAT_ID'
      '')
    SelectSQL.Strings = (
      'select * from NAZN_ANALYZ'
      'where PAT_ID=:PAT_ID'
      'order by NAZN_ANALYZ_DATE, NAZN_ANALYZ_ID')
    ModifySQL.Strings = (
      'update NAZN_ANALYZ'
      'set'
      '  ANALYZ_TYPE = :ANALYZ_TYPE,'
      '  NAZN_ANALYZ_DATE = :NAZN_ANALYZ_DATE,'
      '  NAZN_ANALYZ_ID = :NAZN_ANALYZ_ID,'
      '  PAT_ID = :PAT_ID,'
      '  SOTRUDNIK_ID = :SOTRUDNIK_ID'
      'where'
      '  PAT_ID = :OLD_PAT_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'NAZN_ANALYZ_ID'
    GeneratorField.Generator = 'GEN_NAZN_ANALYZ_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsPat
    Left = 736
    Top = 8
    object dsetNaznAnalyzNAZN_ANALYZ_ID: TIntegerField
      FieldName = 'NAZN_ANALYZ_ID'
      Origin = '"NAZN_ANALYZ"."NAZN_ANALYZ_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetNaznAnalyzANALYZ_TYPE: TIBStringField
      DisplayLabel = #1042#1080#1076' '#1080#1089#1089#1083#1077#1076#1086#1074#1072#1085#1080#1103
      FieldName = 'ANALYZ_TYPE'
      Origin = '"NAZN_ANALYZ"."ANALYZ_TYPE"'
      Required = True
      Size = 30
    end
    object dsetNaznAnalyzNAZN_ANALYZ_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'NAZN_ANALYZ_DATE'
      Origin = '"NAZN_ANALYZ"."NAZN_ANALYZ_DATE"'
    end
    object dsetNaznAnalyzSOTRUDNIK_ID: TIntegerField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      FieldName = 'SOTRUDNIK_ID'
      Origin = '"NAZN_ANALYZ"."SOTRUDNIK_ID"'
    end
    object dsetNaznAnalyzPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"NAZN_ANALYZ"."PAT_ID"'
      Required = True
    end
    object dsetNaznAnalyzANALIZ_TYPE: TStringField
      DisplayLabel = #1042#1080#1076' '#1080#1089#1089#1083#1077#1076#1086#1074#1072#1085#1080#1103
      FieldKind = fkLookup
      FieldName = 'ANALIZ_TYPE'
      LookupDataSet = quAnalyz
      LookupKeyFields = 'ANALIZ_TYPE'
      LookupResultField = 'ANALIZ_TYPE'
      KeyFields = 'ANALYZ_TYPE'
      Lookup = True
    end
    object dsetNaznAnalyzFIO_GINEK_LOOK: TStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      FieldKind = fkLookup
      FieldName = 'FIO_GINEK_LOOK'
      LookupDataSet = dsetDir_Ginek
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_GINEK_LOOK'
      KeyFields = 'SOTRUDNIK_ID'
      Size = 50
      Lookup = True
    end
  end
  object dsetDir_Sotrudniki: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterPost = dsetDir_SotrudnikiAfterPost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DIR_SOTRUDNIKI'
      'where'
      '  SOTRUDNIK_ID = :SOTRUDNIK_ID')
    InsertSQL.Strings = (
      
        'insert  into DIR_SOTRUDNIKI (SOTRUDNIK_ID,SOTRUDNIK_F,SOTRUDNIK_' +
        'I,SOTRUDNIK_O,SOTRUDNIK_SPECIALTY,SOTRUDNIK_KATEG,SOTRUDNIK_TEL,' +
        'SOTRUDNIK_STEPEN)'
      
        'values (:SOTRUDNIK_ID,:SOTRUDNIK_F,:SOTRUDNIK_I,:SOTRUDNIK_O,:SO' +
        'TRUDNIK_SPECIALTY,:SOTRUDNIK_KATEG,:SOTRUDNIK_TEL,:SOTRUDNIK_STE' +
        'PEN)'
      '')
    RefreshSQL.Strings = (
      
        'select  SOTRUDNIK_ID,SOTRUDNIK_F,SOTRUDNIK_I,SOTRUDNIK_O,SOTRUDN' +
        'IK_SPECIALTY,SOTRUDNIK_KATEG,SOTRUDNIK_TEL,SOTRUDNIK_STEPEN, SOT' +
        'RUDNIK_F||'#39' '#39'||SOTRUDNIK_I||'#39' '#39'||SOTRUDNIK_O as FIO_SOKR from DI' +
        'R_SOTRUDNIKI'
      'where SOTRUDNIK_ID = :SOTRUDNIK_ID'
      
        'order by  SOTRUDNIK_ID,SOTRUDNIK_F,SOTRUDNIK_I,SOTRUDNIK_O,SOTRU' +
        'DNIK_SPECIALTY,SOTRUDNIK_KATEG,SOTRUDNIK_TEL,SOTRUDNIK_STEPEN'
      '')
    SelectSQL.Strings = (
      
        'select SOTRUDNIK_ID,SOTRUDNIK_F,SOTRUDNIK_I,SOTRUDNIK_O,SOTRUDNI' +
        'K_SPECIALTY,SOTRUDNIK_KATEG,SOTRUDNIK_TEL,SOTRUDNIK_STEPEN, SOTR' +
        'UDNIK_F||'#39' '#39'||SOTRUDNIK_I||'#39' '#39'||SOTRUDNIK_O as FIO_SOKR from DIR' +
        '_SOTRUDNIKI'
      
        'order by SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_O,SOTRUDNIK_SPECIAL' +
        'TY,SOTRUDNIK_KATEG,SOTRUDNIK_TEL,SOTRUDNIK_STEPEN')
    ModifySQL.Strings = (
      
        'update DIR_SOTRUDNIKI set SOTRUDNIK_ID = :SOTRUDNIK_ID,SOTRUDNIK' +
        '_F=:SOTRUDNIK_F,SOTRUDNIK_I=:SOTRUDNIK_I,SOTRUDNIK_O=:SOTRUDNIK_' +
        'O,SOTRUDNIK_SPECIALTY=:SOTRUDNIK_SPECIALTY,SOTRUDNIK_KATEG=:SOTR' +
        'UDNIK_KATEG,SOTRUDNIK_TEL=:SOTRUDNIK_TEL,SOTRUDNIK_STEPEN=:SOTRU' +
        'DNIK_STEPEN'
      'where'
      '  SOTRUDNIK_ID = :OLD_SOTRUDNIK_ID'
      '')
    ParamCheck = True
    UniDirectional = False
    Active = True
    DataSource = dsCild
    Left = 824
    Top = 8
    object dsetDir_SotrudnikiSOTRUDNIK_ID: TIntegerField
      FieldName = 'SOTRUDNIK_ID'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetDir_SotrudnikiFIO_SOKR: TIBStringField
      FieldName = 'FIO_SOKR'
      ProviderFlags = []
      Size = 107
    end
  end
  object dsPOLICY: TDataSource
    DataSet = quPOLICY
    Left = 832
    Top = 304
  end
  object quPOLICY: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quPOLICYAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from INSURANCE_POLICY'
      'order by ID')
    Left = 832
    Top = 256
  end
  object quRLS_COD: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select *  from RLS'
      'order by RLS_COD')
    Left = 248
    Top = 464
  end
  object quVvedenieLS: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select *   from VVEDENIE_LS'
      'order by VVEDENIELS_TYPE')
    Left = 392
    Top = 464
  end
  object dsetEffect: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      'select * from EFFECT'
      'where EF_ID = :PAT_ID'
      'order by EF_NAME')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 256
    Top = 9
    object dsetEffectEF_ID: TIntegerField
      DisplayWidth = 23
      FieldName = 'EF_ID'
      Origin = '"EFFECT"."EF_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetEffectEF_NAME: TIBStringField
      DisplayWidth = 120
      FieldName = 'EF_NAME'
      Origin = '"EFFECT"."EF_NAME"'
      Size = 100
    end
  end
  object dsEffect: TDataSource
    DataSet = dsetEffect
    Left = 256
    Top = 64
  end
  object quDoc: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select SOTRUDNIK_F, SOTRUDNIK_ID from DIR_SOTRUDNIKI')
    Left = 752
    Top = 464
  end
  object quAnalyz: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select *  from ANALYZ'
      'order by ANALIZ_TYPE')
    Left = 736
    Top = 120
  end
  object dsetNablChild: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetNablChildAfterDelete
    AfterInsert = dsetNablChildAfterInsert
    AfterPost = dsetNablChildAfterPost
    BeforePost = dsetNablChildBeforePost
    OnCalcFields = dsetNablChildCalcFields
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from NABLYUDENIYA_CHILD'
      'where'
      '  NABL_ID = :OLD_NABL_ID')
    InsertSQL.Strings = (
      'insert into NABLYUDENIYA_CHILD'
      
        '  (ASFIKSIYA_CHILD, CHILD_ID, KOZHN_POKROV_CHILD, MOCHEISP_CHILD' +
        ', NABL_DATE, '
      
        '   NABL_ID, PUPOCHN_RANKA, SLIZ_GLAZ_CHILD, SLIZ_RTA_CHILD, SOSA' +
        'T_REFLEX_CHILD, '
      '   SOTRUDNIK, STUL_CHILD, TEMP_CHILD, WEIGHT_CHILD)'
      'values'
      
        '  (:ASFIKSIYA_CHILD, :CHILD_ID, :KOZHN_POKROV_CHILD, :MOCHEISP_C' +
        'HILD, :NABL_DATE, '
      
        '   :NABL_ID, :PUPOCHN_RANKA, :SLIZ_GLAZ_CHILD, :SLIZ_RTA_CHILD, ' +
        ':SOSAT_REFLEX_CHILD, '
      '   :SOTRUDNIK, :STUL_CHILD, :TEMP_CHILD, :WEIGHT_CHILD)')
    RefreshSQL.Strings = (
      'Select '
      '  NABL_ID,'
      '  NABL_DATE,'
      '  TEMP_CHILD,'
      '  WEIGHT_CHILD,'
      '  ASFIKSIYA_CHILD,'
      '  SLIZ_GLAZ_CHILD,'
      '  SLIZ_RTA_CHILD,'
      '  KOZHN_POKROV_CHILD,'
      '  SOSAT_REFLEX_CHILD,'
      '  STUL_CHILD,'
      '  MOCHEISP_CHILD,'
      '  PUPOCHN_RANKA,'
      '  SOTRUDNIK,'
      '  CHILD_ID'
      'from NABLYUDENIYA_CHILD '
      'where'
      '  NABL_ID = :NABL_ID')
    SelectSQL.Strings = (
      'select *  from NABLYUDENIYA_CHILD'
      'where CHILD_ID=:CHILD_ID'
      'order by NABL_DATE, NABL_ID')
    ModifySQL.Strings = (
      'update NABLYUDENIYA_CHILD'
      'set'
      '  ASFIKSIYA_CHILD = :ASFIKSIYA_CHILD,'
      '  CHILD_ID = :CHILD_ID,'
      '  KOZHN_POKROV_CHILD = :KOZHN_POKROV_CHILD,'
      '  MOCHEISP_CHILD = :MOCHEISP_CHILD,'
      '  NABL_DATE = :NABL_DATE,'
      '  NABL_ID = :NABL_ID,'
      '  PUPOCHN_RANKA = :PUPOCHN_RANKA,'
      '  SLIZ_GLAZ_CHILD = :SLIZ_GLAZ_CHILD,'
      '  SLIZ_RTA_CHILD = :SLIZ_RTA_CHILD,'
      '  SOSAT_REFLEX_CHILD = :SOSAT_REFLEX_CHILD,'
      '  SOTRUDNIK = :SOTRUDNIK,'
      '  STUL_CHILD = :STUL_CHILD,'
      '  TEMP_CHILD = :TEMP_CHILD,'
      '  WEIGHT_CHILD = :WEIGHT_CHILD'
      'where'
      '  NABL_ID = :OLD_NABL_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'NABL_ID'
    GeneratorField.Generator = 'GEN_NABLYUDENIYA_CHILD_ID'
    GeneratorField.ApplyEvent = gamOnPost
    DataSource = dsCild
    Left = 633
    Top = 144
    object dsetNablChildNABL_ID: TIntegerField
      FieldName = 'NABL_ID'
      Origin = '"NABLYUDENIYA_CHILD"."NABL_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetNablChildNABL_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072'     '
      FieldName = 'NABL_DATE'
      Origin = '"NABLYUDENIYA_CHILD"."NABL_DATE"'
      Required = True
    end
    object dsetNablChildTEMP_CHILD: TFloatField
      DisplayLabel = #1058#1077#1084#1087#1077#1088#1072#1090#1091#1088#1072
      FieldName = 'TEMP_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."TEMP_CHILD"'
    end
    object dsetNablChildWEIGHT_CHILD: TFloatField
      DisplayLabel = #1052#1072#1089#1089#1072' ('#1074#1077#1089')'
      FieldName = 'WEIGHT_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."WEIGHT_CHILD"'
    end
    object dsetNablChildSLIZ_GLAZ_CHILD: TIBStringField
      DisplayLabel = #1057#1083#1080#1079#1080#1089#1090#1072#1103' '#1075#1083#1072#1079
      FieldName = 'SLIZ_GLAZ_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."SLIZ_GLAZ_CHILD"'
      Size = 100
    end
    object dsetNablChildSLIZ_RTA_CHILD: TIBStringField
      DisplayLabel = #1057#1083#1080#1079#1080#1089#1090#1072#1103' '#1088#1090#1072
      FieldName = 'SLIZ_RTA_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."SLIZ_RTA_CHILD"'
      Size = 100
    end
    object dsetNablChildKOZHN_POKROV_CHILD: TIBStringField
      DisplayLabel = #1050#1086#1078#1085#1099#1077' '#1087#1086#1082#1088#1086#1074#1099
      FieldName = 'KOZHN_POKROV_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."KOZHN_POKROV_CHILD"'
      Size = 100
    end
    object dsetNablChildSOSAT_REFLEX_CHILD: TIBStringField
      DisplayLabel = #1040#1082#1090#1080#1074#1085#1086#1089#1090#1100' '#1089#1086#1089#1072#1090#1077#1083#1100#1085#1086#1075#1086' '#1088#1077#1092#1083#1077#1082#1089#1072
      FieldName = 'SOSAT_REFLEX_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."SOSAT_REFLEX_CHILD"'
      Size = 100
    end
    object dsetNablChildSTUL_CHILD: TIBStringField
      DisplayLabel = #1061#1072#1088#1072#1082#1090#1077#1088' '#1089#1090#1091#1083#1072
      FieldName = 'STUL_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."STUL_CHILD"'
      Size = 100
    end
    object dsetNablChildMOCHEISP_CHILD: TIBStringField
      DisplayLabel = #1052#1086#1095#1077#1080#1089#1087#1091#1089#1082#1072#1085#1080#1077
      FieldName = 'MOCHEISP_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."MOCHEISP_CHILD"'
      Size = 100
    end
    object dsetNablChildPUPOCHN_RANKA: TIBStringField
      DisplayLabel = #1057#1086#1089#1090#1086#1103#1085#1080#1077' '#1087#1091#1087#1086#1095#1085#1086#1081' '#1088#1072#1085#1082#1080
      FieldName = 'PUPOCHN_RANKA'
      Origin = '"NABLYUDENIYA_CHILD"."PUPOCHN_RANKA"'
      Size = 100
    end
    object dsetNablChildCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"NABLYUDENIYA_CHILD"."CHILD_ID"'
      Required = True
    end
    object dsetNablChildDEN_ZHIZNI: TIntegerField
      DisplayLabel = #1044#1077#1085#1100' '#1078#1080#1079#1085#1080
      FieldKind = fkCalculated
      FieldName = 'DEN_ZHIZNI'
      Calculated = True
    end
    object dsetNablChildSOTRUDNIK: TIntegerField
      FieldName = 'SOTRUDNIK'
      Origin = '"NABLYUDENIYA_CHILD"."SOTRUDNIK"'
      Required = True
    end
    object dsetNablChildASFIKSIYA_CHILD: TIBStringField
      DisplayLabel = #1053#1072#1083#1080#1095#1080#1077' '#1087#1088#1080#1089#1090#1091#1087#1086#1074' '#1072#1089#1092#1080#1082#1089#1080#1080
      FieldName = 'ASFIKSIYA_CHILD'
      Origin = '"NABLYUDENIYA_CHILD"."ASFIKSIYA_CHILD"'
      Size = 1
    end
    object dsetNablChildFIO_MS_LOOK: TStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1084#1077#1076#1089#1077#1089#1090#1088#1099
      FieldKind = fkLookup
      FieldName = 'FIO_MS_LOOK'
      LookupDataSet = dsetDir_MC
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_MS_LOOK'
      KeyFields = 'SOTRUDNIK'
      Size = 50
      Lookup = True
    end
  end
  object dsNablChild: TDataSource
    DataSet = dsetNablChild
    OnStateChange = dsNablChildStateChange
    Left = 656
    Top = 64
  end
  object dsNazn_Child: TDataSource
    DataSet = dsetNazn_Child
    OnStateChange = dsNazn_ChildStateChange
    Left = 576
    Top = 64
  end
  object dsetNazn_Child: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetNazn_ChildAfterDelete
    AfterInsert = dsetNazn_ChildAfterInsert
    AfterPost = dsetNazn_ChildAfterPost
    BeforePost = dsetNazn_ChildBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from NAZN_CHILD'
      'where'
      '  NAZN_ID = :OLD_NAZN_ID')
    InsertSQL.Strings = (
      'insert into NAZN_CHILD'
      
        '  (BLOG_PED_ID, DOC_ID, KOLICH_LS, NAZN_DATE, NAZN_DOZA, NAZN_ID' +
        ', OTMENA_DATE, '
      '   RLS_COD, VVEDENIE_LS)'
      'values'
      
        '  (:BLOG_PED_ID, :DOC_ID, :KOLICH_LS, :NAZN_DATE, :NAZN_DOZA, :N' +
        'AZN_ID, '
      '   :OTMENA_DATE, :RLS_COD, :VVEDENIE_LS)')
    RefreshSQL.Strings = (
      'Select '
      '  NAZN_ID,'
      '  RLS_COD,'
      '  NAZN_DATE,'
      '  DOC_ID,'
      '  NAZN_DOZA,'
      '  OTMENA_DATE,'
      '  VVEDENIE_LS,'
      '  KOLICH_LS,'
      '  BLOG_PED_ID'
      'from NAZN_CHILD '
      'where'
      '  NAZN_ID = :NAZN_ID')
    SelectSQL.Strings = (
      'select * from NAZN_CHILD'
      'where BLOG_PED_ID=:BLOG_PED_ID'
      'order by NAZN_DATE, NAZN_ID')
    ModifySQL.Strings = (
      'update NAZN_CHILD'
      'set'
      '  BLOG_PED_ID = :BLOG_PED_ID,'
      '  DOC_ID = :DOC_ID,'
      '  KOLICH_LS = :KOLICH_LS,'
      '  NAZN_DATE = :NAZN_DATE,'
      '  NAZN_DOZA = :NAZN_DOZA,'
      '  NAZN_ID = :NAZN_ID,'
      '  OTMENA_DATE = :OTMENA_DATE,'
      '  RLS_COD = :RLS_COD,'
      '  VVEDENIE_LS = :VVEDENIE_LS'
      'where'
      '  NAZN_ID = :OLD_NAZN_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'NAZN_ID'
    GeneratorField.Generator = 'GEN_NAZN_CHILD_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsCild
    Left = 576
    Top = 8
    object dsetNazn_ChildNAZN_ID: TIntegerField
      DisplayWidth = 12
      FieldName = 'NAZN_ID'
      Origin = '"NAZN_CHILD"."NAZN_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetNazn_ChildRLS_COD: TIntegerField
      DisplayLabel = #1055#1088#1077#1087#1072#1088#1072#1090
      DisplayWidth = 12
      FieldName = 'RLS_COD'
      Origin = '"NAZN_CHILD"."RLS_COD"'
      Required = True
    end
    object dsetNazn_ChildNAZN_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072
      DisplayWidth = 12
      FieldName = 'NAZN_DATE'
      Origin = '"NAZN_CHILD"."NAZN_DATE"'
      Required = True
    end
    object dsetNazn_ChildDOC_ID: TIntegerField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      DisplayWidth = 12
      FieldName = 'DOC_ID'
      Origin = '"NAZN_CHILD"."DOC_ID"'
      Required = True
    end
    object dsetNazn_ChildNAZN_DOZA: TIBStringField
      DisplayLabel = #1044#1086#1079#1072
      DisplayWidth = 13
      FieldName = 'NAZN_DOZA'
      Origin = '"NAZN_CHILD"."NAZN_DOZA"'
      Size = 50
    end
    object dsetNazn_ChildOTMENA_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1090#1084#1077#1085#1099
      DisplayWidth = 15
      FieldName = 'OTMENA_DATE'
      Origin = '"NAZN_CHILD"."OTMENA_DATE"'
    end
    object dsetNazn_ChildVVEDENIE_LS: TIntegerField
      DisplayLabel = #1057#1087#1086#1089#1086#1073' '#1074#1074#1077#1076#1077#1085#1080#1103
      DisplayWidth = 13
      FieldName = 'VVEDENIE_LS'
      Origin = '"NAZN_CHILD"."VVEDENIE_LS"'
      Required = True
    end
    object dsetNazn_ChildKOLICH_LS: TIntegerField
      DisplayLabel = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
      DisplayWidth = 12
      FieldName = 'KOLICH_LS'
      Origin = '"NAZN_CHILD"."KOLICH_LS"'
    end
    object dsetNazn_ChildVVEDENIE_CHILD: TStringField
      DisplayLabel = #1057#1087#1086#1089#1086#1073' '#1074#1074#1077#1076#1077#1085#1080#1103
      FieldKind = fkLookup
      FieldName = 'VVEDENIE_CHILD'
      LookupDataSet = quVvedenieLS
      LookupKeyFields = 'VVEDENIELS_ID'
      LookupResultField = 'VVEDENIELS_TYPE'
      KeyFields = 'VVEDENIE_LS'
      Lookup = True
    end
    object dsetNazn_ChildRLS_NAME: TStringField
      DisplayLabel = #1055#1088#1077#1087#1072#1088#1072#1090
      FieldKind = fkLookup
      FieldName = 'RLS_NAME'
      LookupDataSet = quRLS_COD
      LookupKeyFields = 'RLS_COD'
      LookupResultField = 'RLS_NAME'
      KeyFields = 'RLS_COD'
      Size = 100
      Lookup = True
    end
    object dsetNazn_ChildFIO_NEONATOL_LOOK: TStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      FieldKind = fkLookup
      FieldName = 'FIO_NEONATOL_LOOK'
      LookupDataSet = dsetDirNeonatol
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_NEONATOL_LOOK'
      KeyFields = 'DOC_ID'
      Size = 50
      Lookup = True
    end
  end
  object dsAnaliz_Child: TDataSource
    DataSet = dsetAnaliz_Child
    OnStateChange = dsAnaliz_ChildStateChange
    Left = 872
    Top = 96
  end
  object dsetAnaliz_Child: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetAnaliz_ChildAfterDelete
    AfterInsert = dsetAnaliz_ChildAfterInsert
    AfterPost = dsetAnaliz_ChildAfterPost
    BeforePost = dsetAnaliz_ChildBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from ANALIZ_CHILD'
      'where'
      '  ANALIZ_ID = :OLD_ANALIZ_ID')
    InsertSQL.Strings = (
      'insert into ANALIZ_CHILD'
      '  (ANALIZ_DATE, ANALIZ_ID, ANALIZ_TYPE, CHILD_ID, DOC_ID)'
      'values'
      '  (:ANALIZ_DATE, :ANALIZ_ID, :ANALIZ_TYPE, :CHILD_ID, :DOC_ID)')
    RefreshSQL.Strings = (
      'Select '
      '  ANALIZ_ID,'
      '  CHILD_ID,'
      '  ANALIZ_TYPE,'
      '  ANALIZ_DATE,'
      '  DOC_ID'
      'from ANALIZ_CHILD '
      'where'
      '  ANALIZ_ID = :ANALIZ_ID')
    SelectSQL.Strings = (
      'select * from ANALIZ_CHILD'
      'where CHILD_ID=:CHILD_ID'
      'order by ANALIZ_DATE, ANALIZ_ID'
      ''
      '')
    ModifySQL.Strings = (
      'update ANALIZ_CHILD'
      'set'
      '  ANALIZ_DATE = :ANALIZ_DATE,'
      '  ANALIZ_ID = :ANALIZ_ID,'
      '  ANALIZ_TYPE = :ANALIZ_TYPE,'
      '  CHILD_ID = :CHILD_ID,'
      '  DOC_ID = :DOC_ID'
      'where'
      '  ANALIZ_ID = :OLD_ANALIZ_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'ANALIZ_ID'
    GeneratorField.Generator = 'GEN_ANALIZ_CHILD_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsCild
    Left = 896
    Top = 32
    object dsetAnaliz_ChildANALIZ_ID: TIntegerField
      FieldName = 'ANALIZ_ID'
      Origin = '"ANALIZ_CHILD"."ANALIZ_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetAnaliz_ChildCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"ANALIZ_CHILD"."CHILD_ID"'
      Required = True
    end
    object dsetAnaliz_ChildANALIZ_TYPE: TIBStringField
      DisplayLabel = #1042#1080#1076' '#1072#1085#1072#1083#1080#1079#1072
      FieldName = 'ANALIZ_TYPE'
      Origin = '"ANALIZ_CHILD"."ANALIZ_TYPE"'
      Required = True
      Size = 30
    end
    object dsetAnaliz_ChildDOC_ID: TIntegerField
      FieldName = 'DOC_ID'
      Origin = '"ANALIZ_CHILD"."DOC_ID"'
      Required = True
    end
    object dsetAnaliz_ChildANALIZ_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'ANALIZ_DATE'
      Origin = '"ANALIZ_CHILD"."ANALIZ_DATE"'
    end
    object dsetAnaliz_ChildANALIZ_T: TStringField
      DisplayLabel = #1042#1080#1076' '#1072#1085#1072#1083#1080#1079#1072
      FieldKind = fkLookup
      FieldName = 'ANALIZ_T'
      LookupDataSet = quAnalyz
      LookupKeyFields = 'ANALIZ_TYPE'
      LookupResultField = 'ANALIZ_TYPE'
      KeyFields = 'ANALIZ_TYPE'
      Size = 30
      Lookup = True
    end
    object dsetAnaliz_ChildFIO_NEONATOL_LOOK: TStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1074#1088#1072#1095#1072
      FieldKind = fkLookup
      FieldName = 'FIO_NEONATOL_LOOK'
      LookupDataSet = dsetDirNeonatol
      LookupKeyFields = 'SOTRUDNIK_ID'
      LookupResultField = 'FIO_NEONATOL_LOOK'
      KeyFields = 'DOC_ID'
      Size = 105
      Lookup = True
    end
  end
  object quEpisiotomia: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from EPIZIO_TYPE'
      'order by EPIZIO_TYPE_ID')
    Left = 320
    Top = 464
  end
  object quChild: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from CHILD'
      'order by CHILD_ID')
    Left = 136
    Top = 120
  end
  object quPat: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from PAT_INFO'
      'order by PAT_ID')
    Left = 72
    Top = 120
    object quPatPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"PAT_INFO"."PAT_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object quPatPAT_F: TIBStringField
      FieldName = 'PAT_F'
      Origin = '"PAT_INFO"."PAT_F"'
      Size = 35
    end
    object quPatPAT_I: TIBStringField
      FieldName = 'PAT_I'
      Origin = '"PAT_INFO"."PAT_I"'
      Size = 35
    end
    object quPatPAT_O: TIBStringField
      FieldName = 'PAT_O'
      Origin = '"PAT_INFO"."PAT_O"'
      Size = 35
    end
    object quPatPAT_BD: TDateField
      FieldName = 'PAT_BD'
      Origin = '"PAT_INFO"."PAT_BD"'
    end
    object quPatPOST_D: TDateField
      FieldName = 'POST_D'
      Origin = '"PAT_INFO"."POST_D"'
    end
    object quPatVYB_D: TDateField
      FieldName = 'VYB_D'
      Origin = '"PAT_INFO"."VYB_D"'
    end
    object quPatKOY_D: TLargeintField
      FieldKind = fkInternalCalc
      FieldName = 'KOY_D'
      Origin = '"PAT_INFO"."KOY_D"'
      ProviderFlags = []
      ReadOnly = True
    end
    object quPatPAT_PHONE: TIBStringField
      FieldName = 'PAT_PHONE'
      Origin = '"PAT_INFO"."PAT_PHONE"'
      Size = 35
    end
    object quPatNAC_ID: TIntegerField
      FieldName = 'NAC_ID'
      Origin = '"PAT_INFO"."NAC_ID"'
    end
    object quPatRW: TIBStringField
      FieldName = 'RW'
      Origin = '"PAT_INFO"."RW"'
      Size = 1
    end
    object quPatGONOR: TIBStringField
      FieldName = 'GONOR'
      Origin = '"PAT_INFO"."GONOR"'
      Size = 1
    end
    object quPatRH: TIBStringField
      FieldName = 'RH'
      Origin = '"PAT_INFO"."RH"'
      Size = 1
    end
    object quPatGB_ID: TIntegerField
      FieldName = 'GB_ID'
      Origin = '"PAT_INFO"."GB_ID"'
    end
    object quPatHB: TIntegerField
      FieldName = 'HB'
      Origin = '"PAT_INFO"."HB"'
    end
    object quPatSP_ID: TIntegerField
      FieldName = 'SP_ID'
      Origin = '"PAT_INFO"."SP_ID"'
    end
    object quPatPAT_WORK: TIBStringField
      FieldName = 'PAT_WORK'
      Origin = '"PAT_INFO"."PAT_WORK"'
      Size = 100
    end
    object quPatPAL_ID: TIntegerField
      FieldName = 'PAL_ID'
      Origin = '"PAT_INFO"."PAL_ID"'
    end
    object quPatTWN_CODE: TIBStringField
      FieldName = 'TWN_CODE'
      Origin = '"PAT_INFO"."TWN_CODE"'
      Size = 13
    end
    object quPatDOCUMENT_ID: TIntegerField
      FieldName = 'DOCUMENT_ID'
      Origin = '"PAT_INFO"."DOCUMENT_ID"'
    end
    object quPatSERIES: TIntegerField
      FieldName = 'SERIES'
      Origin = '"PAT_INFO"."SERIES"'
      Required = True
    end
    object quPatNUMBER: TIntegerField
      FieldName = 'NUMBER'
      Origin = '"PAT_INFO"."NUMBER"'
      Required = True
    end
    object quPatDATE_OF_GAIN: TDateField
      FieldName = 'DATE_OF_GAIN'
      Origin = '"PAT_INFO"."DATE_OF_GAIN"'
      Required = True
    end
    object quPatPLACE_OF_GAIN: TIBStringField
      FieldName = 'PLACE_OF_GAIN'
      Origin = '"PAT_INFO"."PLACE_OF_GAIN"'
      Required = True
      Size = 200
    end
    object quPatGB_OTEC_ID: TIntegerField
      FieldName = 'GB_OTEC_ID'
      Origin = '"PAT_INFO"."GB_OTEC_ID"'
    end
    object quPatPH_OTEC_ID: TIBStringField
      FieldName = 'PH_OTEC_ID'
      Origin = '"PAT_INFO"."PH_OTEC_ID"'
      Size = 1
    end
    object quPatSHVATKI_DATA: TDateField
      FieldName = 'SHVATKI_DATA'
      Origin = '"PAT_INFO"."SHVATKI_DATA"'
    end
    object quPatSHVATKI_TIME: TTimeField
      FieldName = 'SHVATKI_TIME'
      Origin = '"PAT_INFO"."SHVATKI_TIME"'
    end
    object quPatVODY_KACHESTVO: TIBStringField
      FieldName = 'VODY_KACHESTVO'
      Origin = '"PAT_INFO"."VODY_KACHESTVO"'
      Size = 1000
    end
    object quPatVODY_KOLICHESTVO: TIntegerField
      FieldName = 'VODY_KOLICHESTVO'
      Origin = '"PAT_INFO"."VODY_KOLICHESTVO"'
    end
    object quPatVODY_DATE: TDateField
      FieldName = 'VODY_DATE'
      Origin = '"PAT_INFO"."VODY_DATE"'
    end
    object quPatVODY_TIME: TTimeField
      FieldName = 'VODY_TIME'
      Origin = '"PAT_INFO"."VODY_TIME"'
    end
    object quPatPOLNOE_OTKRYTIE_DATE: TDateField
      FieldName = 'POLNOE_OTKRYTIE_DATE'
      Origin = '"PAT_INFO"."POLNOE_OTKRYTIE_DATE"'
    end
    object quPatPOLNOE_OTKRYTIE_TIME: TTimeField
      FieldName = 'POLNOE_OTKRYTIE_TIME'
      Origin = '"PAT_INFO"."POLNOE_OTKRYTIE_TIME"'
    end
    object quPatPOTUGI_DATE: TDateField
      FieldName = 'POTUGI_DATE'
      Origin = '"PAT_INFO"."POTUGI_DATE"'
    end
    object quPatPOTUGI_TIME: TTimeField
      FieldName = 'POTUGI_TIME'
      Origin = '"PAT_INFO"."POTUGI_TIME"'
    end
    object quPatSERDCE_OSMOTR: TIBStringField
      FieldName = 'SERDCE_OSMOTR'
      Origin = '"PAT_INFO"."SERDCE_OSMOTR"'
      Size = 2000
    end
    object quPatPULS_OSMOTR: TIntegerField
      FieldName = 'PULS_OSMOTR'
      Origin = '"PAT_INFO"."PULS_OSMOTR"'
    end
    object quPatAD_RIGHT: TIntegerField
      FieldName = 'AD_RIGHT'
      Origin = '"PAT_INFO"."AD_RIGHT"'
    end
    object quPatAD_LEFT: TIntegerField
      FieldName = 'AD_LEFT'
      Origin = '"PAT_INFO"."AD_LEFT"'
    end
    object quPatORGANY_DYHANIYA: TIBStringField
      FieldName = 'ORGANY_DYHANIYA'
      Origin = '"PAT_INFO"."ORGANY_DYHANIYA"'
      Size = 2000
    end
    object quPatPISHEVARENIE_OSMOTR: TIBStringField
      FieldName = 'PISHEVARENIE_OSMOTR'
      Origin = '"PAT_INFO"."PISHEVARENIE_OSMOTR"'
      Size = 3000
    end
    object quPatMOCHEVAYA_SIST_OSMOTR: TIBStringField
      FieldName = 'MOCHEVAYA_SIST_OSMOTR'
      Origin = '"PAT_INFO"."MOCHEVAYA_SIST_OSMOTR"'
      Size = 2000
    end
    object quPatZDOR_MUZH: TIBStringField
      FieldName = 'ZDOR_MUZH'
      Origin = '"PAT_INFO"."ZDOR_MUZH"'
      Size = 100
    end
    object quPatOBSHIE_ZABOLEV: TIBStringField
      FieldName = 'OBSHIE_ZABOLEV'
      Origin = '"PAT_INFO"."OBSHIE_ZABOLEV"'
      Size = 100
    end
    object quPatMENSTRUATION: TIntegerField
      FieldName = 'MENSTRUATION'
      Origin = '"PAT_INFO"."MENSTRUATION"'
    end
    object quPatGYNECOLOG_DISEASES: TIBStringField
      FieldName = 'GYNECOLOG_DISEASES'
      Origin = '"PAT_INFO"."GYNECOLOG_DISEASES"'
      Size = 100
    end
    object quPatFIRST_CHEV_PLODA: TDateField
      FieldName = 'FIRST_CHEV_PLODA'
      Origin = '"PAT_INFO"."FIRST_CHEV_PLODA"'
    end
    object quPatTAZ: TIntegerField
      FieldName = 'TAZ'
      Origin = '"PAT_INFO"."TAZ"'
    end
    object quPatOKRUZH_ABDOMINAL: TIntegerField
      FieldName = 'OKRUZH_ABDOMINAL'
      Origin = '"PAT_INFO"."OKRUZH_ABDOMINAL"'
    end
    object quPatVYS_DNA_MATKI: TIntegerField
      FieldName = 'VYS_DNA_MATKI'
      Origin = '"PAT_INFO"."VYS_DNA_MATKI"'
    end
    object quPatPOL_PLODA: TIBStringField
      FieldName = 'POL_PLODA'
      Origin = '"PAT_INFO"."POL_PLODA"'
      Size = 1000
    end
    object quPatFORM_PLODA: TIBStringField
      FieldName = 'FORM_PLODA'
      Origin = '"PAT_INFO"."FORM_PLODA"'
      Size = 100
    end
    object quPatMESTO_HEARTBEAT: TIBStringField
      FieldName = 'MESTO_HEARTBEAT'
      Origin = '"PAT_INFO"."MESTO_HEARTBEAT"'
      Size = 200
    end
    object quPatCHISLO_UD_HEARTBEAT: TIntegerField
      FieldName = 'CHISLO_UD_HEARTBEAT'
      Origin = '"PAT_INFO"."CHISLO_UD_HEARTBEAT"'
    end
    object quPatGDE_NAKH: TIBStringField
      FieldName = 'GDE_NAKH'
      Origin = '"PAT_INFO"."GDE_NAKH"'
      Size = 10
    end
    object quPatPRED_VES_PLODA: TIntegerField
      FieldName = 'PRED_VES_PLODA'
      Origin = '"PAT_INFO"."PRED_VES_PLODA"'
    end
    object quPatPAT_HEIGHT: TIntegerField
      FieldName = 'PAT_HEIGHT'
      Origin = '"PAT_INFO"."PAT_HEIGHT"'
    end
    object quPatPAT_WEIGHT: TIntegerField
      FieldName = 'PAT_WEIGHT'
      Origin = '"PAT_INFO"."PAT_WEIGHT"'
    end
    object quPatPRED_CHAST: TIBStringField
      FieldName = 'PRED_CHAST'
      Origin = '"PAT_INFO"."PRED_CHAST"'
      Size = 1000
    end
    object quPatBEREM: TIntegerField
      FieldName = 'BEREM'
      Origin = '"PAT_INFO"."BEREM"'
    end
    object quPatBIRTH: TIntegerField
      FieldName = 'BIRTH'
      Origin = '"PAT_INFO"."BIRTH"'
    end
    object quPatBIRTH_DATE: TDateField
      FieldName = 'BIRTH_DATE'
      Origin = '"PAT_INFO"."BIRTH_DATE"'
    end
    object quPatABORTION: TIntegerField
      FieldName = 'ABORTION'
      Origin = '"PAT_INFO"."ABORTION"'
    end
    object quPatOPER_POS: TIBStringField
      FieldName = 'OPER_POS'
      Origin = '"PAT_INFO"."OPER_POS"'
      Size = 10
    end
    object quPatSK_DETEY_ZHIV: TIntegerField
      FieldName = 'SK_DETEY_ZHIV'
      Origin = '"PAT_INFO"."SK_DETEY_ZHIV"'
    end
    object quPatMERTVOROZH: TIntegerField
      FieldName = 'MERTVOROZH'
      Origin = '"PAT_INFO"."MERTVOROZH"'
    end
    object quPatUMERLO: TIntegerField
      FieldName = 'UMERLO'
      Origin = '"PAT_INFO"."UMERLO"'
    end
    object quPatPLACE_OF_BD: TIBStringField
      FieldName = 'PLACE_OF_BD'
      Origin = '"PAT_INFO"."PLACE_OF_BD"'
      Size = 250
    end
    object quPatALL_REAK: TIBStringField
      FieldName = 'ALL_REAK'
      Origin = '"PAT_INFO"."ALL_REAK"'
      Size = 100
    end
    object quPatUCH: TIBStringField
      FieldName = 'UCH'
      Origin = '"PAT_INFO"."UCH"'
      Size = 100
    end
    object quPatATTENDANCE: TIBStringField
      FieldName = 'ATTENDANCE'
      Origin = '"PAT_INFO"."ATTENDANCE"'
      Size = 100
    end
    object quPatHOW_MANY_TIMES: TIntegerField
      FieldName = 'HOW_MANY_TIMES'
      Origin = '"PAT_INFO"."HOW_MANY_TIMES"'
    end
    object quPatCONSUL_NAME: TIBStringField
      FieldName = 'CONSUL_NAME'
      Origin = '"PAT_INFO"."CONSUL_NAME"'
      Size = 250
    end
    object quPatPREVIOUS_BEREMENNOST: TIBStringField
      FieldName = 'PREVIOUS_BEREMENNOST'
      Origin = '"PAT_INFO"."PREVIOUS_BEREMENNOST"'
      Size = 1500
    end
    object quPatTEMPERATURE: TIntegerField
      FieldName = 'TEMPERATURE'
      Origin = '"PAT_INFO"."TEMPERATURE"'
    end
    object quPatPEREVOD_EP_DATE: TDateField
      FieldName = 'PEREVOD_EP_DATE'
      Origin = '"PAT_INFO"."PEREVOD_EP_DATE"'
    end
    object quPatPEREVOD_EP_TIME: TTimeField
      FieldName = 'PEREVOD_EP_TIME'
      Origin = '"PAT_INFO"."PEREVOD_EP_TIME"'
    end
    object quPatPEREVOD_EP_SOST: TIBStringField
      FieldName = 'PEREVOD_EP_SOST'
      Origin = '"PAT_INFO"."PEREVOD_EP_SOST"'
      Size = 1000
    end
    object quPatPEREVOD_EP_ZHALOBY: TIBStringField
      FieldName = 'PEREVOD_EP_ZHALOBY'
      Origin = '"PAT_INFO"."PEREVOD_EP_ZHALOBY"'
      Size = 1000
    end
    object quPatPEREVOD_EP_MATKA: TIBStringField
      FieldName = 'PEREVOD_EP_MATKA'
      Origin = '"PAT_INFO"."PEREVOD_EP_MATKA"'
      Size = 1000
    end
    object quPatPEREVOD_EP_AD_SYST: TIntegerField
      FieldName = 'PEREVOD_EP_AD_SYST'
      Origin = '"PAT_INFO"."PEREVOD_EP_AD_SYST"'
    end
    object quPatPEREVOD_EP_AD_DIAST: TIntegerField
      FieldName = 'PEREVOD_EP_AD_DIAST'
      Origin = '"PAT_INFO"."PEREVOD_EP_AD_DIAST"'
    end
    object quPatPEREVOD_EP_KROV: TIntegerField
      FieldName = 'PEREVOD_EP_KROV'
      Origin = '"PAT_INFO"."PEREVOD_EP_KROV"'
    end
    object quPatPEREVOD_EP_NAZN: TIBStringField
      FieldName = 'PEREVOD_EP_NAZN'
      Origin = '"PAT_INFO"."PEREVOD_EP_NAZN"'
      Size = 1000
    end
    object quPatPREDPOLAG_VES_PLODA: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'PREDPOLAG_VES_PLODA'
      Origin = '"PAT_INFO"."PREDPOLAG_VES_PLODA"'
      ProviderFlags = []
      ReadOnly = True
    end
    object quPatPAT_OTD: TIBStringField
      FieldName = 'PAT_OTD'
      Origin = '"PAT_INFO"."PAT_OTD"'
      Size = 60
    end
    object quPatOP_ROD_PAKAZ: TIBStringField
      FieldName = 'OP_ROD_PAKAZ'
      Origin = '"PAT_INFO"."OP_ROD_PAKAZ"'
      Size = 1000
    end
    object quPatOP_ROD_PROF: TIBStringField
      FieldName = 'OP_ROD_PROF'
      Origin = '"PAT_INFO"."OP_ROD_PROF"'
      Size = 1000
    end
    object quPatOP_ROD_EP: TIntegerField
      FieldName = 'OP_ROD_EP'
      Origin = '"PAT_INFO"."OP_ROD_EP"'
    end
    object quPatPOLIS: TIBStringField
      FieldName = 'POLIS'
      Origin = '"PAT_INFO"."POLIS"'
      Size = 100
    end
    object quPatTECH_ROD_PSICH: TIntegerField
      FieldName = 'TECH_ROD_PSICH'
      Origin = '"PAT_INFO"."TECH_ROD_PSICH"'
    end
    object quPatTECH_ROD_EF: TIntegerField
      FieldName = 'TECH_ROD_EF'
      Origin = '"PAT_INFO"."TECH_ROD_EF"'
    end
    object quPatTECH_ROD_PROD_OBSH: TIntegerField
      FieldName = 'TECH_ROD_PROD_OBSH'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_OBSH"'
    end
    object quPatTECH_ROD_PROD_1: TIntegerField
      FieldName = 'TECH_ROD_PROD_1'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_1"'
    end
    object quPatTECH_ROD_PROD_3: TIntegerField
      FieldName = 'TECH_ROD_PROD_3'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_3"'
    end
    object quPatTECH_ROD_PROD_2: TIntegerField
      FieldName = 'TECH_ROD_PROD_2'
      Origin = '"PAT_INFO"."TECH_ROD_PROD_2"'
    end
    object quPatOP_ROD_OBEZB: TIBStringField
      FieldName = 'OP_ROD_OBEZB'
      Origin = '"PAT_INFO"."OP_ROD_OBEZB"'
      Size = 500
    end
    object quPatOP_ROD_POSLED_VYDELILSYA: TIBStringField
      FieldName = 'OP_ROD_POSLED_VYDELILSYA'
      Origin = '"PAT_INFO"."OP_ROD_POSLED_VYDELILSYA"'
      Size = 1000
    end
    object quPatOP_ROD_REVIZIYA: TIBStringField
      FieldName = 'OP_ROD_REVIZIYA'
      Origin = '"PAT_INFO"."OP_ROD_REVIZIYA"'
      Size = 1000
    end
    object quPatOP_ROD_OBEZB_OP: TIBStringField
      FieldName = 'OP_ROD_OBEZB_OP'
      Origin = '"PAT_INFO"."OP_ROD_OBEZB_OP"'
      Size = 500
    end
    object quPatOP_ROD_OPERATION_OPISANIE: TIBStringField
      FieldName = 'OP_ROD_OPERATION_OPISANIE'
      Origin = '"PAT_INFO"."OP_ROD_OPERATION_OPISANIE"'
      Size = 2000
    end
    object quPatOP_ROD_POSLED_OSMOTR: TIBStringField
      FieldName = 'OP_ROD_POSLED_OSMOTR'
      Origin = '"PAT_INFO"."OP_ROD_POSLED_OSMOTR"'
      Size = 500
    end
    object quPatOP_ROD_PLACENTA_OPISANIE: TIBStringField
      FieldName = 'OP_ROD_PLACENTA_OPISANIE'
      Origin = '"PAT_INFO"."OP_ROD_PLACENTA_OPISANIE"'
      Size = 2000
    end
    object quPatOP_ROD_TRAVM: TIBStringField
      FieldName = 'OP_ROD_TRAVM'
      Origin = '"PAT_INFO"."OP_ROD_TRAVM"'
      Size = 1000
    end
    object quPatOP_ROD_PROVEDENO: TIBStringField
      FieldName = 'OP_ROD_PROVEDENO'
      Origin = '"PAT_INFO"."OP_ROD_PROVEDENO"'
      Size = 1000
    end
    object quPatOP_ROD_AD_SYST: TIntegerField
      FieldName = 'OP_ROD_AD_SYST'
      Origin = '"PAT_INFO"."OP_ROD_AD_SYST"'
    end
    object quPatOP_ROD_AD_DIAST: TIntegerField
      FieldName = 'OP_ROD_AD_DIAST'
      Origin = '"PAT_INFO"."OP_ROD_AD_DIAST"'
    end
    object quPatOP_ROD_KROV: TIntegerField
      FieldName = 'OP_ROD_KROV'
      Origin = '"PAT_INFO"."OP_ROD_KROV"'
    end
    object quPatVYPISKA_SOST: TIBStringField
      FieldName = 'VYPISKA_SOST'
      Origin = '"PAT_INFO"."VYPISKA_SOST"'
      Size = 1000
    end
    object quPatIP_SERIES: TIBStringField
      FieldName = 'IP_SERIES'
      Origin = '"PAT_INFO"."IP_SERIES"'
      Size = 12
    end
    object quPatIP_NUMBER: TIntegerField
      FieldName = 'IP_NUMBER'
      Origin = '"PAT_INFO"."IP_NUMBER"'
    end
    object quPatVYPISKA_LIST_NUM: TIntegerField
      FieldName = 'VYPISKA_LIST_NUM'
      Origin = '"PAT_INFO"."VYPISKA_LIST_NUM"'
    end
    object quPatVYPISKA_LIST_FROM: TDateField
      FieldName = 'VYPISKA_LIST_FROM'
      Origin = '"PAT_INFO"."VYPISKA_LIST_FROM"'
    end
    object quPatVYPISKA_LIST_TO: TDateField
      FieldName = 'VYPISKA_LIST_TO'
      Origin = '"PAT_INFO"."VYPISKA_LIST_TO"'
    end
    object quPatCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"PAT_INFO"."CHILD_ID"'
    end
    object quPatVYPISKA_PEREVEDEN_KUDA: TIBStringField
      FieldName = 'VYPISKA_PEREVEDEN_KUDA'
      Origin = '"PAT_INFO"."VYPISKA_PEREVEDEN_KUDA"'
      Size = 100
    end
    object quPatVYPISKA_PEREVEDEN_KOGDA: TDateField
      FieldName = 'VYPISKA_PEREVEDEN_KOGDA'
      Origin = '"PAT_INFO"."VYPISKA_PEREVEDEN_KOGDA"'
    end
  end
  object dsetDnevnik: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DNEVNIK'
      'where'
      '  DIUREZ = :OLD_DIUREZ and'
      '  DNEVNIK_DATE = :OLD_DNEVNIK_DATE and'
      '  DNEVNIK_ID = :OLD_DNEVNIK_ID and'
      '  LOHII = :OLD_LOHII and'
      '  MATKA = :OLD_MATKA and'
      '  MOL_ZHEL = :OLD_MOL_ZHEL and'
      '  PAT_ID = :OLD_PAT_ID and'
      '  SOSTOYANIE = :OLD_SOSTOYANIE and'
      '  STUL = :OLD_STUL and'
      '  SUTKI_NUM = :OLD_SUTKI_NUM and'
      '  TRESHINY = :OLD_TRESHINY')
    InsertSQL.Strings = (
      'insert into DNEVNIK'
      
        '  (DIUREZ, DNEVNIK_DATE, DNEVNIK_ID, LOHII, MATKA, MOL_ZHEL, PAT' +
        '_ID, SOSTOYANIE, '
      '   STUL, SUTKI_NUM, TRESHINY)'
      'values'
      
        '  (:DIUREZ, :DNEVNIK_DATE, :DNEVNIK_ID, :LOHII, :MATKA, :MOL_ZHE' +
        'L, :PAT_ID, '
      '   :SOSTOYANIE, :STUL, :SUTKI_NUM, :TRESHINY)')
    RefreshSQL.Strings = (
      'Select '
      '  DNEVNIK_ID,'
      '  PAT_ID,'
      '  DNEVNIK_DATE,'
      '  SOSTOYANIE,'
      '  SUTKI_NUM,'
      '  MOL_ZHEL,'
      '  TRESHINY,'
      '  MATKA,'
      '  LOHII,'
      '  STUL,'
      '  DIUREZ'
      'from DNEVNIK '
      'where'
      '  DIUREZ = :DIUREZ and'
      '  DNEVNIK_DATE = :DNEVNIK_DATE and'
      '  DNEVNIK_ID = :DNEVNIK_ID and'
      '  LOHII = :LOHII and'
      '  MATKA = :MATKA and'
      '  MOL_ZHEL = :MOL_ZHEL and'
      '  PAT_ID = :PAT_ID and'
      '  SOSTOYANIE = :SOSTOYANIE and'
      '  STUL = :STUL and'
      '  SUTKI_NUM = :SUTKI_NUM and'
      '  TRESHINY = :TRESHINY')
    SelectSQL.Strings = (
      'select * from DNEVNIK'
      'where PAT_ID=:PAT_ID'
      'order by DNEVNIK_DATE, DNEVNIK_ID')
    ModifySQL.Strings = (
      'update DNEVNIK'
      'set'
      '  DIUREZ = :DIUREZ,'
      '  DNEVNIK_DATE = :DNEVNIK_DATE,'
      '  DNEVNIK_ID = :DNEVNIK_ID,'
      '  LOHII = :LOHII,'
      '  MATKA = :MATKA,'
      '  MOL_ZHEL = :MOL_ZHEL,'
      '  PAT_ID = :PAT_ID,'
      '  SOSTOYANIE = :SOSTOYANIE,'
      '  STUL = :STUL,'
      '  SUTKI_NUM = :SUTKI_NUM,'
      '  TRESHINY = :TRESHINY'
      'where'
      '  DIUREZ = :OLD_DIUREZ and'
      '  DNEVNIK_DATE = :OLD_DNEVNIK_DATE and'
      '  DNEVNIK_ID = :OLD_DNEVNIK_ID and'
      '  LOHII = :OLD_LOHII and'
      '  MATKA = :OLD_MATKA and'
      '  MOL_ZHEL = :OLD_MOL_ZHEL and'
      '  PAT_ID = :OLD_PAT_ID and'
      '  SOSTOYANIE = :OLD_SOSTOYANIE and'
      '  STUL = :OLD_STUL and'
      '  SUTKI_NUM = :OLD_SUTKI_NUM and'
      '  TRESHINY = :OLD_TRESHINY')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'DNEVNIK_ID'
    GeneratorField.Generator = 'GEN_DNEVNIK_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    Left = 376
    Top = 8
    object dsetDnevnikPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"DNEVNIK"."PAT_ID"'
    end
    object dsetDnevnikDNEVNIK_DATE: TDateField
      FieldName = 'DNEVNIK_DATE'
      Origin = '"DNEVNIK"."DNEVNIK_DATE"'
    end
    object dsetDnevnikSOSTOYANIE: TIBStringField
      FieldName = 'SOSTOYANIE'
      Origin = '"DNEVNIK"."SOSTOYANIE"'
      Size = 1000
    end
    object dsetDnevnikDNEVNIK_ID: TIntegerField
      FieldName = 'DNEVNIK_ID'
      Origin = '"DNEVNIK"."DNEVNIK_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetDnevnikSUTKI_NUM: TIntegerField
      FieldName = 'SUTKI_NUM'
      Origin = '"DNEVNIK"."SUTKI_NUM"'
    end
    object dsetDnevnikMOL_ZHEL: TIBStringField
      FieldName = 'MOL_ZHEL'
      Origin = '"DNEVNIK"."MOL_ZHEL"'
      Size = 300
    end
    object dsetDnevnikTRESHINY: TIBStringField
      FieldName = 'TRESHINY'
      Origin = '"DNEVNIK"."TRESHINY"'
      Size = 300
    end
    object dsetDnevnikMATKA: TIBStringField
      FieldName = 'MATKA'
      Origin = '"DNEVNIK"."MATKA"'
      Size = 300
    end
    object dsetDnevnikLOHII: TIBStringField
      FieldName = 'LOHII'
      Origin = '"DNEVNIK"."LOHII"'
      Size = 300
    end
    object dsetDnevnikSTUL: TIBStringField
      FieldName = 'STUL'
      Origin = '"DNEVNIK"."STUL"'
      Size = 300
    end
    object dsetDnevnikDIUREZ: TIBStringField
      FieldName = 'DIUREZ'
      Origin = '"DNEVNIK"."DIUREZ"'
      Size = 300
    end
    object dsetDnevnikDate: TDateField
      FieldKind = fkLookup
      FieldName = 'Date'
      LookupDataSet = quDnevnik
      LookupKeyFields = 'DNEVNIK_ID'
      LookupResultField = 'DNEVNIK_DATE'
      KeyFields = 'PAT_ID'
      Lookup = True
    end
    object dsetDnevnikNOMER_SYTOK: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'NOMER_SYTOK'
      Calculated = True
    end
  end
  object dsDnevnik: TDataSource
    DataSet = dsetDnevnik
    Left = 376
    Top = 64
  end
  object quDnevnik: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from DNEVNIK'
      'order by DNEVNIK_DATE')
    Left = 376
    Top = 120
    object quDnevnikPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"DNEVNIK"."PAT_ID"'
    end
    object quDnevnikDNEVNIK_DATE: TDateField
      FieldName = 'DNEVNIK_DATE'
      Origin = '"DNEVNIK"."DNEVNIK_DATE"'
    end
    object quDnevnikSOSTOYANIE: TIBStringField
      FieldName = 'SOSTOYANIE'
      Origin = '"DNEVNIK"."SOSTOYANIE"'
      Size = 1000
    end
    object quDnevnikDNEVNIK_ID: TIntegerField
      FieldName = 'DNEVNIK_ID'
      Origin = '"DNEVNIK"."DNEVNIK_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object quDnevnikSUTKI_NUM: TIntegerField
      FieldName = 'SUTKI_NUM'
      Origin = '"DNEVNIK"."SUTKI_NUM"'
    end
    object quDnevnikMOL_ZHEL: TIBStringField
      FieldName = 'MOL_ZHEL'
      Origin = '"DNEVNIK"."MOL_ZHEL"'
      Size = 300
    end
    object quDnevnikTRESHINY: TIBStringField
      FieldName = 'TRESHINY'
      Origin = '"DNEVNIK"."TRESHINY"'
      Size = 300
    end
    object quDnevnikMATKA: TIBStringField
      FieldName = 'MATKA'
      Origin = '"DNEVNIK"."MATKA"'
      Size = 300
    end
    object quDnevnikLOHII: TIBStringField
      FieldName = 'LOHII'
      Origin = '"DNEVNIK"."LOHII"'
      Size = 300
    end
    object quDnevnikSTUL: TIBStringField
      FieldName = 'STUL'
      Origin = '"DNEVNIK"."STUL"'
      Size = 300
    end
    object quDnevnikDIUREZ: TIBStringField
      FieldName = 'DIUREZ'
      Origin = '"DNEVNIK"."DIUREZ"'
      Size = 300
    end
  end
  object dsetDir_MC: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      
        'select SOTRUDNIK_ID, SOTRUDNIK_F||'#39' '#39'||SOTRUDNIK_I||'#39' '#39'||SOTRUDN' +
        'IK_O as FIO_MS_Look from DIR_SOTRUDNIKI'
      'where ('
      'sotrudnik_specialty containing '#39#1089#1077#1089#1090#1088#39
      ')'
      'order by SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_O')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 112
    Top = 752
  end
  object dsetDirAkush: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      
        'select SOTRUDNIK_ID, SOTRUDNIK_F||'#39' '#39'||SOTRUDNIK_I||'#39' '#39'||SOTRUDN' +
        'IK_O as FIO_Akush_Look from DIR_SOTRUDNIKI'
      'where ('
      
        'sotrudnik_specialty containing '#39#1072#1082#1091#1096#39' and sotrudnik_Specialty no' +
        't containing '#39#1075#1080#1085#1077#1082#39' '
      ')'
      'order by SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_O')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 160
    Top = 776
  end
  object dsetDir_Ginek: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      
        'select SOTRUDNIK_ID, SOTRUDNIK_F||'#39' '#39'||SOTRUDNIK_I||'#39' '#39'||SOTRUDN' +
        'IK_O as FIO_Ginek_Look from DIR_SOTRUDNIKI'
      'where ('
      'sotrudnik_specialty containing '#39#1075#1080#1085#1077#1082#39
      ')'
      'order by SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_O')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 224
    Top = 760
  end
  object dsetDirNeonatol: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      
        'select SOTRUDNIK_ID, SOTRUDNIK_F||'#39' '#39'||SOTRUDNIK_I||'#39' '#39'||SOTRUDN' +
        'IK_O as FIO_Neonatol_Look from DIR_SOTRUDNIKI'
      'where ('
      'sotrudnik_specialty containing '#39#1085#1077#1086#1085#1072#1090#1086#39
      ')'
      'order by SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_O')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 304
    Top = 776
  end
  object dsetCONSULT: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetCONSULTAfterDelete
    AfterInsert = dsetCONSULTAfterInsert
    AfterPost = dsetCONSULTAfterPost
    BeforePost = dsetCONSULTBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from CONSULTATION'
      'where'
      '  PAT_ID = :OLD_PAT_ID')
    InsertSQL.Strings = (
      'insert into CONSULTATION'
      
        '  (CONSULTATION_DATE, CONSULTATION_ID, CONSULTATION_TYPE_ID, PAT' +
        '_ID)'
      'values'
      
        '  (:CONSULTATION_DATE, :CONSULTATION_ID, :CONSULTATION_TYPE_ID, ' +
        ':PAT_ID)')
    RefreshSQL.Strings = (
      'Select '
      '  CONSULTATION_ID,'
      '  CONSULTATION_TYPE_ID,'
      '  PAT_ID,'
      '  CONSULTATION_DATE'
      'from CONSULTATION '
      'where'
      '  PAT_ID = :PAT_ID')
    SelectSQL.Strings = (
      'select * from CONSULTATION'
      'where PAT_ID=:PAT_ID'
      'order by CONSULTATION_DATE, CONSULTATION_ID')
    ModifySQL.Strings = (
      'update CONSULTATION'
      'set'
      '  CONSULTATION_DATE = :CONSULTATION_DATE,'
      '  CONSULTATION_ID = :CONSULTATION_ID,'
      '  CONSULTATION_TYPE_ID = :CONSULTATION_TYPE_ID,'
      '  PAT_ID = :PAT_ID'
      'where'
      '  PAT_ID = :OLD_PAT_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'CONSULTATION_ID'
    GeneratorField.Generator = 'GEN_CONSULTATION_ID'
    DataSource = dsPat
    Left = 152
    Top = 272
    object dsetCONSULTCONSULTATION_ID: TIntegerField
      FieldName = 'CONSULTATION_ID'
      Origin = '"CONSULTATION"."CONSULTATION_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetCONSULTCONSULTATION_TYPE_ID: TIntegerField
      FieldName = 'CONSULTATION_TYPE_ID'
      Origin = '"CONSULTATION"."CONSULTATION_TYPE_ID"'
    end
    object dsetCONSULTPAT_ID: TIntegerField
      FieldName = 'PAT_ID'
      Origin = '"CONSULTATION"."PAT_ID"'
    end
    object dsetCONSULTCONSULTATION_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'CONSULTATION_DATE'
      Origin = '"CONSULTATION"."CONSULTATION_DATE"'
      Required = True
    end
    object dsetCONSULTCONSULTATION_TYPE_NAME: TStringField
      DisplayLabel = #1050#1086#1085#1089#1091#1083#1100#1090#1072#1094#1080#1103
      FieldKind = fkLookup
      FieldName = 'CONSULTATION_TYPE_NAME'
      LookupDataSet = quCONSULT
      LookupKeyFields = 'CONSULTATION_TYPE_ID'
      LookupResultField = 'CONSULTATION_TYPE_NAME'
      KeyFields = 'CONSULTATION_TYPE_ID'
      Size = 30
      Lookup = True
    end
  end
  object quCONSULT: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from CONSULTATION_TYPE'
      'order by CONSULTATION_TYPE_NAME')
    Left = 216
    Top = 336
  end
  object quDir_Donosh: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from DIR_DONOSH'
      'order by DONOSH_STATUS')
    Left = 304
    Top = 688
  end
  object quHEARTBEAT: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quHEARTBEATAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from MESTO_HEARTBIT'
      'order by ID_MESTO_HEARTBEAT')
    Left = 648
    Top = 272
  end
  object quDir_Born_sost: TIBQuery
    Database = dbMain
    Transaction = trMain
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select *  from DIR_BORN'
      'order by DIR_BORN_SOST')
    Left = 376
    Top = 688
  end
  object dsHEARTBEAT: TDataSource
    DataSet = quHEARTBEAT
    Left = 432
    Top = 312
  end
  object quStatusPat: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quStatusPatAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from STATUS_PAT'
      'order by STAT_NAME')
    Left = 576
    Top = 256
  end
  object dsStatusPat: TDataSource
    DataSet = quStatusPat
    Left = 576
    Top = 312
  end
  object quRegion: TIBQuery
    Database = dbMain
    Transaction = trMain
    AfterOpen = quRegionAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from REGION'
      'order by REGION_NAME')
    Left = 512
    Top = 256
  end
  object dsRegion: TDataSource
    DataSet = quRegion
    Left = 512
    Top = 312
  end
  object quSpravka: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from TB_SPRAVKA'
      'order by ID_SPRAVKA')
    Left = 456
    Top = 256
  end
  object dsSpravka: TDataSource
    DataSet = quSpravka
    Left = 456
    Top = 312
  end
  object dsetApgar: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BeforePost = dsetApgarBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from Apgar'
      'where'
      '  APGAR_ID = :OLD_APGAR_ID')
    InsertSQL.Strings = (
      'insert into Apgar'
      
        '  (APGAR_ID, BRITH, CHILD_ID, HEAT_RATE, MUSKLS, REFLEKS, SKIN, ' +
        'TIME_AFTE_BORN)'
      'values'
      
        '  (:APGAR_ID, :BRITH, :CHILD_ID, :HEAT_RATE, :MUSKLS, :REFLEKS, ' +
        ':SKIN, '
      '   :TIME_AFTE_BORN)')
    RefreshSQL.Strings = (
      'Select '
      '  APGAR_ID,'
      '  TIME_AFTE_BORN,'
      '  HEAT_RATE,'
      '  BRITH,'
      '  SKIN,'
      '  MUSKLS,'
      '  REFLEKS,'
      '  SUMMARY_BALL,'
      '  CHILD_ID'
      'from Apgar '
      'where'
      '  APGAR_ID = :APGAR_ID')
    SelectSQL.Strings = (
      'select * from Apgar'
      'where CHILD_ID = :CHILD_ID'
      'order by Time_Afte_born')
    ModifySQL.Strings = (
      'update Apgar'
      'set'
      '  APGAR_ID = :APGAR_ID,'
      '  BRITH = :BRITH,'
      '  CHILD_ID = :CHILD_ID,'
      '  HEAT_RATE = :HEAT_RATE,'
      '  MUSKLS = :MUSKLS,'
      '  REFLEKS = :REFLEKS,'
      '  SKIN = :SKIN,'
      '  TIME_AFTE_BORN = :TIME_AFTE_BORN'
      'where'
      '  APGAR_ID = :OLD_APGAR_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'APGAR_ID'
    GeneratorField.Generator = 'GEN_APGAR_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsCild
    Left = 448
    Top = 688
    object dsetApgarAPGAR_ID: TIntegerField
      FieldName = 'APGAR_ID'
      Origin = '"APGAR"."APGAR_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetApgarTIME_AFTE_BORN: TIntegerField
      DisplayLabel = #1042#1088#1077#1084#1103' '#1087#1086#1089#1083#1077' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = 'TIME_AFTE_BORN'
      Origin = '"APGAR"."TIME_AFTE_BORN"'
    end
    object dsetApgarHEAT_RATE: TIntegerField
      DisplayLabel = #1057#1077#1088#1076#1094#1077#1073#1080#1077#1085#1080#1077
      FieldName = 'HEAT_RATE'
      Origin = '"APGAR"."HEAT_RATE"'
    end
    object dsetApgarBRITH: TIntegerField
      DisplayLabel = #1044#1099#1093#1072#1085#1080#1077
      FieldName = 'BRITH'
      Origin = '"APGAR"."BRITH"'
    end
    object dsetApgarSKIN: TIntegerField
      DisplayLabel = #1054#1082#1088#1072#1089#1082#1072' '#1082#1086#1078#1080
      FieldName = 'SKIN'
      Origin = '"APGAR"."SKIN"'
    end
    object dsetApgarMUSKLS: TIntegerField
      DisplayLabel = #1058#1086#1085#1091#1089' '#1084#1099#1096#1094
      FieldName = 'MUSKLS'
      Origin = '"APGAR"."MUSKLS"'
    end
    object dsetApgarREFLEKS: TIntegerField
      DisplayLabel = #1056#1077#1092#1083#1077#1082#1089#1099
      FieldName = 'REFLEKS'
      Origin = '"APGAR"."REFLEKS"'
    end
    object dsetApgarSUMMARY_BALL: TLargeintField
      DisplayLabel = #1054#1094#1077#1085#1082#1072' '#1074' '#1073#1072#1083#1083#1072#1093
      FieldKind = fkInternalCalc
      FieldName = 'SUMMARY_BALL'
      LookupCache = True
      Origin = '"APGAR"."SUMMARY_BALL"'
      ProviderFlags = []
      ReadOnly = True
    end
    object dsetApgarCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"APGAR"."CHILD_ID"'
      Required = True
    end
  end
  object dsApgar: TDataSource
    DataSet = dsetApgar
    Left = 448
    Top = 736
  end
  object dsetShablon: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BeforePost = dsetShablonBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from SHABLON_TABLE'
      'where'
      '  SHABLON_ID = :OLD_SHABLON_ID')
    InsertSQL.Strings = (
      'insert into SHABLON_TABLE'
      '  (POLE, SHABLON_ID, SHABLON_TXT)'
      'values'
      '  (:POLE, :SHABLON_ID, :SHABLON_TXT)')
    RefreshSQL.Strings = (
      'Select '
      '  SHABLON_ID,'
      '  POLE,'
      '  SHABLON_TXT'
      'from SHABLON_TABLE '
      'where'
      '  SHABLON_ID = :SHABLON_ID')
    SelectSQL.Strings = (
      'select * from SHABLON_TABLE'
      'where POLE = :POLE'
      'ORDER BY SHABLON_TXT')
    ModifySQL.Strings = (
      'update SHABLON_TABLE'
      'set'
      '  POLE = :POLE,'
      '  SHABLON_ID = :SHABLON_ID,'
      '  SHABLON_TXT = :SHABLON_TXT'
      'where'
      '  SHABLON_ID = :OLD_SHABLON_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'SHABLON_ID'
    GeneratorField.Generator = 'GEN_SHABLON_TABLE_ID'
    Active = True
    Left = 676
    Top = 768
    object dsetShablonSHABLON_ID: TIntegerField
      FieldName = 'SHABLON_ID'
      Origin = '"SHABLON_TABLE"."SHABLON_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetShablonPOLE: TIBStringField
      FieldName = 'POLE'
      Origin = '"SHABLON_TABLE"."POLE"'
      Size = 100
    end
    object dsetShablonSHABLON_TXT: TIBStringField
      DisplayLabel = #1058#1077#1082#1089#1090' '#1096#1072#1073#1083#1086#1085#1072
      FieldName = 'SHABLON_TXT'
      Origin = '"SHABLON_TABLE"."SHABLON_TXT"'
      Size = 150
    end
  end
  object dsShablon: TDataSource
    DataSet = dsetShablon
    OnStateChange = dsShablonStateChange
    Left = 680
    Top = 818
  end
  object quPostup: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsPat
    ParamCheck = True
    SQL.Strings = (
      'select count(*) '
      'from PAT_INFO'
      'where'
      'POST_D between :date1 and :date2')
    Left = 568
    Top = 212
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object quRodBl: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsPat
    ParamCheck = True
    SQL.Strings = (
      'select count(*) '
      'from PAT_INFO'
      'where BIRTH_DATE between :date1 and :date2')
    Left = 616
    Top = 220
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object quPoslerod: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsPat
    ParamCheck = True
    SQL.Strings = (
      'select count(*) '
      'from PAT_INFO'
      'where PEREVOD_EP_DATE<= :date2'
      'and (VYB_D>= :date1 or VYB_D is null) ')
    Left = 720
    Top = 196
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end>
  end
  object dsPostup: TDataSource
    DataSet = quPostup
    Left = 568
    Top = 284
  end
  object dsRodBl: TDataSource
    DataSet = quRodBl
    Left = 624
    Top = 324
  end
  object dsPoslerod: TDataSource
    DataSet = quPoslerod
    Left = 504
    Top = 356
  end
  object quRodilos: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsCild
    ParamCheck = True
    SQL.Strings = (
      'select count (*)'
      ' from CHILD'
      'where CHILD_BD '
      'between  :date1 and :date2')
    Left = 568
    Top = 384
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object dsRodilos: TDataSource
    DataSet = quRodilos
    Left = 512
    Top = 416
  end
  object quRodyFiz: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsPat
    ParamCheck = True
    SQL.Strings = (
      'select count (*)'
      ' from PAT_INFO'
      'where  BIRTH_DATE between :date1 and :date2'
      'and (TECH_ROD_EF=1)')
    Left = 632
    Top = 384
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object quRodyKesar: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsPat
    ParamCheck = True
    SQL.Strings = (
      'select count(*)'
      ' from PAT_INFO'
      'where  BIRTH_DATE between :date1 and :date2'
      'and (TECH_ROD_EF<>1)')
    Left = 696
    Top = 384
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object dsRodyFiz: TDataSource
    DataSet = quRodyFiz
    Left = 720
    Top = 528
  end
  object dsRodyKesar: TDataSource
    DataSet = quRodyKesar
    Left = 696
    Top = 440
  end
  object quM: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsCild
    ParamCheck = True
    SQL.Strings = (
      'select count(*)'
      ' from CHILD'
      'where CHILD_BD between :date1 and :date2'
      'and (SEX_ID='#39#1052#39' )')
    Left = 592
    Top = 560
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object quD: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsCild
    ParamCheck = True
    SQL.Strings = (
      'select count(*)'
      ' from CHILD'
      'where CHILD_BD between :date1 and :date2'
      'and (SEX_ID='#39#1046#39' )')
    Left = 704
    Top = 584
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
  end
  object dsM: TDataSource
    DataSet = quM
    Left = 568
    Top = 600
  end
  object dsD: TDataSource
    DataSet = quD
    Left = 624
    Top = 600
  end
  object dsetSotrudniki: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DIR_SOTRUDNIKI'
      'where'
      '  SOTRUDNIK_ID = :OLD_SOTRUDNIK_ID')
    InsertSQL.Strings = (
      'insert into DIR_SOTRUDNIKI'
      
        '  (SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_ID, SOTRUDNIK_KATEG, SOTR' +
        'UDNIK_O, '
      '   SOTRUDNIK_SPECIALTY, SOTRUDNIK_STEPEN, SOTRUDNIK_TEL)'
      'values'
      
        '  (:SOTRUDNIK_F, :SOTRUDNIK_I, :SOTRUDNIK_ID, :SOTRUDNIK_KATEG, ' +
        ':SOTRUDNIK_O, '
      '   :SOTRUDNIK_SPECIALTY, :SOTRUDNIK_STEPEN, :SOTRUDNIK_TEL)')
    RefreshSQL.Strings = (
      'Select '
      '  SOTRUDNIK_ID,'
      '  SOTRUDNIK_F,'
      '  SOTRUDNIK_I,'
      '  SOTRUDNIK_O,'
      '  SOTRUDNIK_SPECIALTY,'
      '  SOTRUDNIK_KATEG,'
      '  SOTRUDNIK_TEL,'
      '  SOTRUDNIK_STEPEN'
      'from DIR_SOTRUDNIKI '
      'where'
      '  SOTRUDNIK_ID = :SOTRUDNIK_ID')
    SelectSQL.Strings = (
      'select * from DIR_SOTRUDNIKI'
      
        'order by SOTRUDNIK_F, SOTRUDNIK_I, SOTRUDNIK_O,SOTRUDNIK_SPECIAL' +
        'TY,SOTRUDNIK_KATEG,SOTRUDNIK_TEL,SOTRUDNIK_STEPEN')
    ModifySQL.Strings = (
      'update DIR_SOTRUDNIKI'
      'set'
      '  SOTRUDNIK_F = :SOTRUDNIK_F,'
      '  SOTRUDNIK_I = :SOTRUDNIK_I,'
      '  SOTRUDNIK_ID = :SOTRUDNIK_ID,'
      '  SOTRUDNIK_KATEG = :SOTRUDNIK_KATEG,'
      '  SOTRUDNIK_O = :SOTRUDNIK_O,'
      '  SOTRUDNIK_SPECIALTY = :SOTRUDNIK_SPECIALTY,'
      '  SOTRUDNIK_STEPEN = :SOTRUDNIK_STEPEN,'
      '  SOTRUDNIK_TEL = :SOTRUDNIK_TEL'
      'where'
      '  SOTRUDNIK_ID = :OLD_SOTRUDNIK_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'SOTRUDNIK_ID'
    GeneratorField.Generator = 'GEN_DIR_SOTRUDNIKI_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 456
    Top = 576
    object IntegerField1: TIntegerField
      DisplayLabel = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
      DisplayWidth = 17
      FieldName = 'SOTRUDNIK_ID'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField2: TIBStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103
      DisplayWidth = 25
      FieldName = 'SOTRUDNIK_F'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_F"'
      Required = True
      Size = 35
    end
    object IBStringField3: TIBStringField
      DisplayLabel = #1048#1084#1103
      DisplayWidth = 24
      FieldName = 'SOTRUDNIK_I'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_I"'
      Size = 35
    end
    object IBStringField4: TIBStringField
      DisplayLabel = #1054#1090#1095#1077#1089#1090#1074#1086
      DisplayWidth = 25
      FieldName = 'SOTRUDNIK_O'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_O"'
      Size = 35
    end
    object IBStringField5: TIBStringField
      DisplayLabel = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1086#1089#1090#1100
      DisplayWidth = 23
      FieldName = 'SOTRUDNIK_SPECIALTY'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_SPECIALTY"'
      Size = 25
    end
    object IBStringField6: TIBStringField
      DisplayLabel = #1050#1072#1090#1077#1075#1086#1088#1080#1103
      DisplayWidth = 13
      FieldName = 'SOTRUDNIK_KATEG'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_KATEG"'
      Size = 25
    end
    object IntegerField2: TIntegerField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085
      DisplayWidth = 13
      FieldName = 'SOTRUDNIK_TEL'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_TEL"'
    end
    object IBStringField7: TIBStringField
      DisplayLabel = #1057#1090#1077#1087#1077#1085#1100
      DisplayWidth = 11
      FieldName = 'SOTRUDNIK_STEPEN'
      Origin = '"DIR_SOTRUDNIKI"."SOTRUDNIK_STEPEN"'
      Size = 25
    end
  end
  object dsSotrudniki: TDataSource
    DataSet = dsetSotrudniki
    Left = 456
    Top = 512
  end
  object dsetRLS: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from RLS'
      'where'
      '  RLS_COD = :OLD_RLS_COD')
    InsertSQL.Strings = (
      'insert into RLS'
      '  (RLS_COD, RLS_NAME)'
      'values'
      '  (:RLS_COD, :RLS_NAME)')
    RefreshSQL.Strings = (
      'Select '
      '  RLS_COD,'
      '  RLS_NAME'
      'from RLS '
      'where'
      '  RLS_COD = :RLS_COD')
    SelectSQL.Strings = (
      'select *  from RLS'
      'where RLS_NAME containing :RLS_NAME'
      'order by RLS_NAME')
    ModifySQL.Strings = (
      'update RLS'
      'set'
      '  RLS_COD = :RLS_COD,'
      '  RLS_NAME = :RLS_NAME'
      'where'
      '  RLS_COD = :OLD_RLS_COD')
    ParamCheck = True
    UniDirectional = False
    Left = 448
    Top = 120
  end
  object dsRLS: TDataSource
    DataSet = dsetRLS
    Left = 448
    Top = 168
  end
  object dsetKorm_Child: TIBDataSet
    Database = dbMain
    Transaction = trMain
    AfterDelete = dsetKorm_ChildAfterDelete
    AfterInsert = dsetKorm_ChildAfterInsert
    AfterPost = dsetKorm_ChildAfterPost
    BeforePost = dsetKorm_ChildBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from Korm_Child_Table'
      'where'
      '  CORM_ID = :OLD_CORM_ID')
    InsertSQL.Strings = (
      'insert into Korm_Child_Table'
      
        '  (CHILD_ID, CORM_ID, DEN_JIZNI, DOKORM, TIME_KORM, VES_MOLOKA, ' +
        'VID_DOKORMA)'
      'values'
      
        '  (:CHILD_ID, :CORM_ID, :DEN_JIZNI, :DOKORM, :TIME_KORM, :VES_MO' +
        'LOKA, :VID_DOKORMA)')
    RefreshSQL.Strings = (
      'Select '
      '  CORM_ID,'
      '  CHILD_ID,'
      '  VID_DOKORMA,'
      '  DEN_JIZNI,'
      '  TIME_KORM,'
      '  VES_MOLOKA,'
      '  DOKORM'
      'from Korm_Child_Table '
      'where'
      '  CORM_ID = :CORM_ID')
    SelectSQL.Strings = (
      'select * from Korm_Child_Table'
      'where Child_ID = :Child_ID'
      'order by den_jizni')
    ModifySQL.Strings = (
      'update Korm_Child_Table'
      'set'
      '  CHILD_ID = :CHILD_ID,'
      '  CORM_ID = :CORM_ID,'
      '  DEN_JIZNI = :DEN_JIZNI,'
      '  DOKORM = :DOKORM,'
      '  TIME_KORM = :TIME_KORM,'
      '  VES_MOLOKA = :VES_MOLOKA,'
      '  VID_DOKORMA = :VID_DOKORMA'
      'where'
      '  CORM_ID = :OLD_CORM_ID')
    ParamCheck = True
    UniDirectional = False
    GeneratorField.Field = 'CORM_ID'
    GeneratorField.Generator = 'GEN_KORM_CHILD_TABLE_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    DataSource = dsCild
    Left = 768
    Top = 768
    object dsetKorm_ChildCORM_ID: TIntegerField
      FieldName = 'CORM_ID'
      Origin = '"KORM_CHILD_TABLE"."CORM_ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsetKorm_ChildCHILD_ID: TIntegerField
      FieldName = 'CHILD_ID'
      Origin = '"KORM_CHILD_TABLE"."CHILD_ID"'
      Required = True
    end
    object dsetKorm_ChildVID_DOKORMA: TIBStringField
      DisplayLabel = #1042#1080#1076' '#1076#1086#1082#1086#1088#1084#1072
      FieldName = 'VID_DOKORMA'
      Origin = '"KORM_CHILD_TABLE"."VID_DOKORMA"'
      Size = 100
    end
    object dsetKorm_ChildDEN_JIZNI: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DEN_JIZNI'
      Origin = '"KORM_CHILD_TABLE"."DEN_JIZNI"'
    end
    object dsetKorm_ChildTIME_KORM: TTimeField
      DisplayLabel = #1063#1072#1089#1099' '#1082#1086#1088#1084#1083#1077#1085#1080#1103
      FieldName = 'TIME_KORM'
      Origin = '"KORM_CHILD_TABLE"."TIME_KORM"'
    end
    object dsetKorm_ChildVES_MOLOKA: TIntegerField
      DisplayLabel = #1043#1088#1091#1076#1085'.'
      FieldName = 'VES_MOLOKA'
      Origin = '"KORM_CHILD_TABLE"."VES_MOLOKA"'
    end
    object dsetKorm_ChildDOKORM: TIntegerField
      DisplayLabel = #1044#1086#1082#1086#1088#1084
      FieldName = 'DOKORM'
      Origin = '"KORM_CHILD_TABLE"."DOKORM"'
    end
  end
  object dsKorm_Child: TDataSource
    DataSet = dsetKorm_Child
    OnStateChange = dsKorm_ChildStateChange
    Left = 768
    Top = 824
  end
  object quSost_type: TIBQuery
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    ParamCheck = True
    SQL.Strings = (
      'select * from SOSTOYANIE_TYPE'
      'order by SOST_ID')
    Left = 472
    Top = 240
  end
  object dsSost_type: TDataSource
    DataSet = quSost_type
    Left = 344
    Top = 416
  end
  object dsetMKB: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      'select *  from MKB_10'
      'where MKB_NAME containing :MKB_NAME'
      'order by MKB_NAME')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 152
    Top = 432
  end
  object dsetMKB_Code: TIBDataSet
    Database = dbMain
    Transaction = trMain
    BufferChunks = 1000
    CachedUpdates = False
    RefreshSQL.Strings = (
      'Select '
      '  MKB_COD,'
      '  MKB_NAME'
      'from MKB_10 '
      'where'
      '  MKB_COD = :MKB_COD')
    SelectSQL.Strings = (
      'select * from MKB_10'
      'where mkb_name containing :MKB_name'
      'and MKB_COD containing :MKB_COD'
      'order by MKB_COD')
    ModifySQL.Strings = (
      'update MKB_10'
      'set'
      '  MKB_COD = :MKB_COD,'
      '  MKB_NAME = :MKB_NAME'
      'where'
      '  MKB_COD = :OLD_MKB_COD')
    ParamCheck = True
    UniDirectional = False
    Active = True
    Left = 32
    Top = 488
    object dsetMKB_CodeMKB_COD: TIBStringField
      DisplayLabel = #1050#1086#1076' '#1087#1086' '#1052#1050#1041
      FieldName = 'MKB_COD'
      Origin = '"MKB_10"."MKB_COD"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 111
    end
    object dsetMKB_CodeMKB_NAME: TIBStringField
      DisplayLabel = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1082#1086#1076#1072
      FieldName = 'MKB_NAME'
      Origin = '"MKB_10"."MKB_NAME"'
      Size = 1000
    end
  end
  object dsMKB_Code2: TDataSource
    DataSet = dsetMKB_Code
    Left = 88
    Top = 520
  end
end
